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IDENTIFICATION 


PRODUCT CODE:  AC-9218D-MC 

PRODUCT NAME: CZRJIDO RPO4/5/6 FUNCTIONAL CONTROLLER TEST PART | 
DATE CREATED: MAY, 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: PETE BLACKSTONE : 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

WITHOUT NOTICE AND SHOULD NOT, BE CONSTRUED AS A 

COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

bol pine sce FOR ANY ERRORS THAT MAY APPEAR IN THIS 
NUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE OHN A SINGLE 
COMPUTER SYSTEMM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE SBE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITA EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF IT 

SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 
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1.0 


2.0 
2.1 


ABSTRACT 


THIS DIAGNOSTIC IS USED TO_TEST RPO4/5/6 DEVICE CONTROL LOGIC 
CONNECTED TO AN RH11 OR RH70 CONTROLLER. 


1T USES THE DISK SURFACE AND THE DRIVe MECHANICS TO PROVE 

THE PROPER WORKING OF THE SUBSYSTEM. IT DOES NOT NEED A 
FORMATTED DISK PACK. A DISK PACK WITH NO VITAL INFORMATION 
WRITTEN ON IT IS ESSENTIAL. AFTER A SUCCESSFUL RUN (WITH 

NO ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

DCL IN THE RPO4/5/6 SUBSYSTEM WORKS SUCCESSFULLY oF STANDING 
ALONE. SYSTEMS INTERACTION AND DRIVE TIMING IS LEFT TO 

OTHER DIAGNOSTICS. THIS IS WITH THE ASSUMPTION THAT PROGRAMS 
DZRJGA AND DZRJHA HAVE BEEN RUN SUCCESSFULLY. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK 
SYSTEM. THE RPO4/5/6 DISK SYSTEM WILi CONSIST OF AN RH11 
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK 
DRIVE, AND ITS APPROPRIATE DISK PACK. THE DISK PACK NEED 
NOT BE FORMATTED. USED SECTION OF THE DiSK SURFACE SHALL 
BE GOOD (HOLE FREE). THE SURFACE FOR THE FOLLOWING SECTORS 
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE 
IRREGULARITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED TO 

THE LOGIC. 


CYLINDER 00, TRACK 00, SECTOR 00 
CYLINDER 00, TRACK 00, SECTOR 01 
CYLINDER 00, TRACK 18, SECTOR 21 
CYLINDER 01, TRACK 00, SECTOR 00 
CYLINDER 02, TRACK 00, SECTOR 00 
CYLINDER 03, TRACK 00, SECTOR 00 
CYLINDER 04, TRACK 00, SECTOR 00 
CYLINDER 05, TRACK 00, SECTOR 00 
CYLINDER 05, TRACK 07, SECTOR 04 
CYLINDER 06, TRACK 00, SECTOR 00 
CYLINDER 07, TRACK 00, SECTOR 00 
CYLINDER 08, TRACK 00, SECTOR 90 
CYLINDER 09, TRACK 18, SECTOR 21 
CYLINDER 410, TRACK 18, SECTOR 21 


STORAGE 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG-(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 

AND IT ASSUMES THAT MAINDEC@11-DZRJH@(LATEST 

REV) HAS BEEN RUN WITHOUT ERRORS. 
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3.0 


4.0 


9 09:03 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
STARTING PROCEDURE 


SWITCH 12 MUST BE SET WHEN THIS PROGRAM 1S TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. SEE 
Seeeat ion 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 

START AT ADDRESS 204---TO SELECT NON-DEFAUL?T ADDRESSES 
START AT ADDRESS 210---FOR UNIT SELECTION 

START AT ADDRESS 220---FOR NO MANUAL INTERVENTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘‘END PASS*' IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT 1S THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204 RESTART 

SAME AS START 200 WITH THE FOLLOWING EXCEPTION: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-STANDARD 
C.S.R AND VECTOR ADDRESS BEFORE STARTING. ONCE THE 
QUESTIONS HAVE BEEN CORRECTLY ANSWERED, AND IT IS ALSO 
NECESSARY TO SELECT A PARTICULAR UNIT FOR TEST (TYPICAL 
PROGRAM EXECUTION FROM ADDRESS 210), OR IT IS NECESSARY 
TO RUN THE PROGRAM WITHOUT MANUAL INTERVENTION (TYPICAL 
PROGRAM EXECUTION FROM ADDRESS 220), THE PROCESSOR MAY 

BE HALTED AND RESTARTED FROM THE DESIRED RESTART ADDRESS. 
IF ALL UNITS ARE TO BE CHECKED, THE PROCESSOR NEED NOT BE 
TOUCHED. THE PROGRAM WILL AUTOMATICALLY RESTART AT ADDRESS 
200 AFTER RECEIVING THE NEW DEVICE PARAMETERS. 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM, 


220 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS STARTING 
ADDRESS THE PROGRAM WILL NOT RUN THOSE TESTS THAT NEED 


SEQ 0004 
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5.0 
5.1 


MANUAL INTERVENTION. THIS IS RECOMMENDED ONLY FOR 
DEBUGGING WHERE THE ERROR IS NOT IN A TEST THAT REQUIRES MANUAL 
INTERVENTION 


PROGRAM AND/OR OPERATOR ACTION 
1. LOAD THE PROGRAM INTO MEMORY. 
SET STARTING ADDRESS ON THE SWITCH REGISTER 


PRESS "'LOAD ADDRESS". 


SET “‘OPERATIONAL SWITCH SETTINGS’ (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


5. PRESS "'START’’. 


6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘'END 
PASS'' 1S PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘'ACT-11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE ‘END PASS'’ IS PRINTED. THE SECOND 


- Ww mr 
° . . 


AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEIDNG RUN ON A SWITCHLES PROCESSOR (1. E. 
AN 11/34) IT WILL DETERMINE THAT A HARWARE SWITCH REGISTER IS 
NOT PRESENT, AND WILL USE ‘’SOFTWARE'’ SWITCH REGISTER. THE 
SETTINGS OF THE SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALED BY TYPING A ‘COBNTROL G‘. THE PROGRAM 
WILL RECOGNIZE A ‘CONTROL G* AT ANY TIME EXCEPT WHEN IT IS AR 
A HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT. THE 

“SOF TWARE'’ SWITCH VALUE S ARE ENTERED AS AN OCTAL NUMBER 

IN RESPONSE TO PROMPTING FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT’ AND ‘CONTROL U' FUNCTIONS MAY BE USED T0 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTER, THE ‘’SOFTWARE"’ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM FINDS ALL 
16 SWITCHES IN THE ‘UP’ POSITION WHEN IT IS STARTED, ALL 
SWITCH REGISTER REFERENCES WILL BE TO THE SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
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SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘‘OPERATIONAL 
+ SETTINGS’’ HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 


SWITCH 15 = HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
“CONTINUE’’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR 1S FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH 1S SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH 1S SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM 1S IN THE EXPECTED 
TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 = INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘’STOP DRIVE xX" 
WILL CONTINUE. AT THE END OF PASS ‘‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X'’ WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 - RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 

WHEN THIS SWITCH 1S SET THE PROGRAM ON SECOND PASS WILL 
hy try EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
ON NLY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE ''BELL'’ OR “‘ALARM'' WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 1S SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THJS SWITCH IS SET, If THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘‘SCOPE’' STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK T0 

THAT “'SCOPE’’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 


SEQ 0006 
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AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR 1S NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

1S ALSO SET. DURING BEGUG, USING A SCOPE, IT 1S RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: SEE SECTION 8.3 


SWITCH 8 - LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 

0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 

7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 

WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP 
ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
0 THRU 7 HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 IS ‘STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH 

1S "ECC TEST-COMPARE END RESULT ONLY'’. THAT IS IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SwO8 IS LOW. 

IF SWITCH 8 1S SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 
AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 
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5.2 


6.0 


NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 

THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 

NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT 1S EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 = TYPE ALL REGISTERS WITH ERROR IF SWO8 IS LOW 

1F SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN 

THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS 
INDICATED IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS 
NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO 

AS THE NAME INDICATES. THAT IS ON FINDING AN ERROR INSTEAD 
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS 

AS WILL BE DONE IF SWITCH 11 IS NOT SET BUT WILL ALSO 

GIVE ALL THE REGISTER CONTENTS (EXCEPT “DATA BUFFER’ RHDB). 


SUB-ROUTINE ABSTRACTS 
SEE SECTION 9 ‘’SUBROUTINES"’. 


” ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4/5/6 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATFD 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE - 
THIS INFORMATION WILL BE COMMUNICATED TO THE OPERATIOR. IN 
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 
1T IS SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD 
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS OPEN TO THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT’ 
INSTRUCTION AND REPLACE IT, PLUS THE TWO WORDS 
(‘TYPE ,CPHALT'') ABOVE WITH "NOP'S, WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND RERUN DZRPS, AS IT IS QUITE ee 
THAT A HARD FAILURE HAS OCCURRED IN ONE OF THE 
HARDWARE REGISTERS. 


1T 1S ALSO POSSIBLE TO CONTINUE FROM THE ‘HALT' POINT, BUT 
THIS IS NOT RECOMMENDED AS ALL FOLLOWISNG TESTS WILL EXHIBIT 
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


SEQ 0008 
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8.3 




























RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
1T MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 
SOFTWARE SWITCH REGISTER FEATURE WHILE ON AN RH70. THIS IS 
BECAUSE THE ROUTINE WHICH GETS ‘SOF TWARE'’ SWITCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 1 
MINUTES PROVIDED AN OPERATOR IS PRESENT TO CARRY OUT THE 
TYPED INSTRUCTIONS IMMEDIATELY. SUBSEQUENT PASSES WILL TAKE 
30 SECONDS WHETHER AN OPERATOR IS THERE OR NOT. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT “C 
ANY TIME WHILE THE PROGRAM 1S RUNNING. ON HITTING AN ERROR 

IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - 
USUALLY BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. OOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


SEQ 0009 
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LOGIC DIVISION IN HARDWARE MODULES 
REGISTER BOARD (RG) - 
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9.0 
9.1 


9.2 


SYNC. DATA BOARD (SN) = 


SEEK AND SEARCH (SS) - 


ERROR CORRECTION (EC) - 


DUAL PORT (DP) - 


DISK SURFACE USAGE 
SYMBOLS USED 


“Denso 


co 


co 


CYLINDER 
TRACK 
SECTOR 
WRITE 


READ 
TEST NUMBER 


, 6. & 
TT22-W,R, TI23-R, T124-W, 


._10, $1 
TT27-W,R, TT37-W.R, TT40- 


CO, 118, S21 
TT30-W, TT31-W,R 


C 
T 


K 1 
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ERROR REGISTER 1 STATUS REGISTERS 

MUX FOR REGISTERS GO HANDLING REGISTER 
DECODE CCMMAND DECODE EXECUTION OF 
MECH. COMMANDS 


DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


SEEK LOGIC SEARCH LOGIC HEADER 
HANDLING. 


ECC LOGIC ERROR REGISTER 2 & 3 

MUK FOR ERROR REG. 2 & 3 LOOK AHEAD 
REG. SECTOR COUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT ARBITRATION ATTENTION LOGIC 


SERIAL NO REGISTER MASS BUS REGISTER 
STORAGE 


R, TT41-W,R, TT42-W,R, TT43-W,R 


1, 10, SO 
T30-W,R, TT31-“W.R, TT53-W,R, T154-W,R 


R, T125-W,R, T126-W,R, TT35-W,R, T137-W, 


TT50-W, 


TT51-W,R, 


TT52-W.R, 


SEQ 0010 
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T131-W,R 

C3, 118, S21 
T131-W 

C4, 10, SO 
TT31-W,R 

C4, 118, S21 
TT351-W 

C5, 10, SO 
TT31-W,R 


C5, 17, S4 
TT33-W,R, T134-W,R 


C5, 118, S21 
TT31-W 


C6, 10, SO 
TT31-W,R 


C6, 118, $21 
TT31-W 

(7, 10, SO 
TT31-W,R 


C7, 118, S18 
TT31-W 


C8, T0, SO 
TT3i-W,R 


C8, 118, S21 
TT31-W 

C9, 10, SO 
TT31-W 


C9, 118, S21 
TT31-W, TT32-R 


C10, 10, SO 
TT31-W,R 


(410, 118, S21 
TT36-W,R, TT50-W,R 


9.3 THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING, 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
WHERE THAT JTEM WILL BE FOUND. 
r) 
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;*DRIVE MUST BE LOCKED ON PORT A OR PORT B 


ST Ne Ne NZ Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Nes Ne 
ST iNe Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Ne Ne Ne 
SAN Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nese 


633 
634 
635 s* INTERNAL PROGRAM MACROS BEGIN HERE 
636 ;seeeeeeerereeeeteeee eee tere rere eee 
637 
638 
639 Z PERRET EAE AEE AAT ATTA ATTA AAA TAKER K Ree 
640 tee 
641 3 **NOTE: ALL MACRO CALLS BEGINNING WITH ‘'.$'' ARE SUPPLIED FROM AN 
642 3° EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
643 3* TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 
44 sf 
er pee eeeee Tere Tete Tere tee TATA eee eee eee Eee AeA EAE E Ee 
646 
a4 -SBTTL OPERATIONAL SWITCH SETTINGS 
64 se 
649 ;* SWITCH USE 
650 3¢ 8 sessse = ss SRS C RCo reeseeeene 
651 jf 15 HALT ON ERROR 
652 3* 14 LOOP ON TEST 
653 3° 13 INHIBIT ERROR TYPEOUTS 
654 3@ 12 RH70 CONTROLLER SELECT 
655 3* 11 INHIBIT ITERATIONS 
656 38 10 BELL ON ERROR 
657 2¢ S LOOP ON ERROR 
658 ;* 8 LOOP ON TEST IN SWR<7:0> 
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OPERATIONAL SWITCH SETTINGS 


-* 


7 
6 
5 


STOP FURTHER COMPARES IF SWO8 IS LOW 
TYPE ALL REG. WITH ERROR IF SwW8 LOW 
MULT ADDR PLUG TEST IF SWO8 IS LOW 


SEQ 0013 
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CZRJID.P11 28-MAR-79 09:03 BASIC DEFINITIONS SEQ 0014 
er -SBTTL BASIC DEFINITIONS 
666 ;*INITIAL ADDRESS OF THE STACK POINTER *** 1000 *## 
667 001000 STACK= 1000 
668 -EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
4 -EQUIV I0T,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
671 ; *MISCELLANEOUS DEFINITIONS 
672 000011 HT= 11 ;;CODE FOR qragrty TAB 
673 000012 LF= 12 ;;CODE FOR LINE FEED 
674 000015 CR= 15 ;;CODE FOR CARRIAGE RETURN 
675 000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
676 177776 PS= 177776 ;;PROCESSOR STATUS WORD - 
677 -EQUIV PS,PSW 
678 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
679 177772 PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
680 177570 DSWR= 177570 > HARDWARE SWITCH REGISTER 
+t 177570 DDISP= 177570 > ;HARDWARE DISPLAY REGISTER 
683 ;*GENERAL PURPOSE REGISTER DEFINITIONS 
684 000000 RO= %0 ;;GENERAL REGISTER 
685 000001 R1= x1 ;;GENERAL REGISTER 
686 000002 R2= %2 ;;GENERAL REGISTER 
687 000003 R3= %3 > GENERAL REGISTER 
688 000004 R4= 44 ;;GENERAL REGISTER 
689 000005 R5= %5 ;;GENERAL REGISTER 
690 000006 R6= %6 ;;GENERAL REGISTER 
691 000007 R7= x7 ;;GENERAL REGISTER 
692 000006 SP= 26 pf abe. POINTER 
4 000007 PC= 47 PROGRAM COUNTER 
694 
695 ;*PRIORITY LEVEL DEFINITIONS 
696 000000 PRO= 0 ;;PRIORITY LEVEL 0 
697 000040 PRi= 40 ;;PRIORITY LEVEL 1 
698 000100 PR2= 100 ;;PRIORITY LEVEL 2 
699 000140 PR3= 140 ;;PRIORITY LEVEL 3 
700 000200 PR4= 200 ::PRIORITY LEVEL 4 
701 000240 PR5= 240 ;;PRIORITY LEVEL 5 
702 000300 PRO= 300 7;PRIORITY LEVEL 6 
854 000340 PR7= 340 ;;PRIORITY LEVEL 7 
4 
705 z*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
706 100000 SW15= 100000 
707 040000 SW14= 40000 
708 020000 SW13= 20000 
709 010000 SWwi2= 10000 
710 004000 SWil= 4000 
711 002000 Swi0= 2000 
712 001000 swO9= 1000 
713 000400 SwO8= 400 
714 000200 SwO7= 200 
715 000100 SwO6= 100 
716 000040 SwO5= 40 
717 000020 Sw04= 20 
718 000010 SwO3= 10 
719 000004 SWO2= 4 
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CZRJID.P11 28-MAR-79 09:03 C DEFINITIONS SEQ 0015 
720 000002 swol= 2 
721 000001 Sw00=- 1 
722 -EQUIV SW09,SW9 
723 -EQUIV SW08,SW8 
724 EQUIV SWO7,SW7 
725 EQUIV SW06,SW6 
726 EQUIV Sw0S,SW5 
727 EQUIV SW04,SW4 
728 -EQUIV SW03,SW3 
729 EQUIV SWO02,SW2 
730 -EQUIV SWO1,SW1 
ey -EQUIV SWw00,SWO 
733 s*DATA BIT DEFINITIONS (BITOO TO B1T15) 
734 100000 B1T15= 100000 
735 040000 B1T14= 40000 
736 020000 B1T13= 20000 
737 010000 BIT12= 10000 
738 004000 BIT11= 4000 
739 002000 BI1T10= 2000 
740 001000 B1T09= 1000 
741 000400 BITO8= 400 
742 000200 B1T07= 200 
743 000100 BI1T06= 100 
744 000040 BITO0S= 40 
745 000020 BIT04= 20 
746 000010 BI1TO03= 10 
747 000004 BITO2= 4 
748 000002 BITO1= 2 
749 000001 BITOO= 1 
750 -EQUIV BIT09,BIT9 
751 -EQUIV B1T08,B1T8 
752 -EQUIV B1T07,B1T7 
753 -EQUIV B1T06,B1T6 
754 -EQUIV BITOS,BITS 
755 -EQUIV BIT04,BI1T4 
756 -EQUIV B1T03,B1T3 
757 -EQUIV B1T02,BIT2 
758 -EQUIV B1T01,B1T1 
Ke -EQUIV B1T00,B1T0 
6 
761 :*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 
762 000004 ERRVEC= 4 3:TIME OUT AND OTHER ERRORS 
763 000010 RESVEC= 10 s RESERVED AND ILLEGAL INSTRUCTIONS 
764 000014 TBITVEC=14 33°T" O11 
765 000014 TRIVEC= 14 7; TRACE TRAP 
766 000014 BPTVEC= 14 > ;BREAKPOINT TRAP (BPT) 
767 000020 1OTVEC= 20 +3 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
768 000024 PWRVEC= 24 ;POWER FAIL 
769 000030 EMTVEC= 30 ; :EMULATOR TRAP (EMT) **ERROR®** 
770 000034 TRAPVEC=34 3: ‘'TRAP’’ TRAP 
771 000060 TKVEC= 60 :: TTY KEYBOARD VECTOR 
772 000064 TPVEC= 64 s:TlY PRINTER VECTOR 


773 000240 PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
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000174 
000176 


000046 
000052 


000200 
000204 
000210 


000220 
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000000 


000174 
000000 
000000 


000200 


000200 


000200 


000137 


09:03 TRAP CATCHER 
.SBTTL TRAP CATCHER 
20 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.42,HALT" 
= *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:#LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 0 :sSOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 SOFTWARE SWITCH REGISTER 
.SBTTL ACT11 HOOKS 
SPREE AERA ATE EATER AERA AREER AERA ERE EA 
‘HOOKS REQUIRED BY ACT11 
SSvPC= SAVE PC 
SENDAD :51)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“wORD 2000 332)SET LOC. 532 TO 2000 
* =$SVPC t! RESTORE P 
.SBTTL STARTING ADDRESSES 
.=200 
005012 RA: JMP Q#BEGIN sNORMAL START 
043660 ADDMOD: JMP aNBASECH “START FOR ADDRESS-MODIFICATION 
004776 IMP aNBEGINZ ‘JUMP TO SELECT DRIVE START 
004762 jmp aNBEGINI : JUMP TO NO OPERATOR TESTS START 


*STARTING ADDRESS 200 FOR NORMAL STARTS 
*THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 


*STARTING ADDRESS 204 FOR NON-DEFAULT ADDRESS PARAMETERS 
:*AUTO RESTART AT ADDRESS 200 AFTER LOADING PARAMETERS 


:*STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


>*STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 
;*AT THE DRIVE 


SEQ 0016 


.¢ 
MACY11 yp ts cg 25-MAY-79 10:30 PAGE 18 


CZRJIDO, RP04/5/6 ecto CTLRI 
CZRJID.P11 28-MAR-79 09:03 RY MANAGEMENT DEFINITIONS SEQ 0017 
gi8 -SBTTL MEMORY MANAGEMENT DEFINITIONS | 
ast ;*KT11 VECTOR ADDRESS 
ace 000250 MMVEC= 250 
ass >*KT11 STATUS REGISTER ADDRESSES 
826 177572 SRO= 177572 
827 177574 SR1= 177574 
828 177576 SR2= 177576 
+34 172516 SR3= 172516 
$4 *KERNEL ‘'l'' PAGE DESCRIPTOR REGISTERS 
833 172300 KIPDRO= 172300 
834 172302 KIPDRI= 172302 
835 172304 KIPDR2= 172304 
836 172306 KIPDR3= 172306 
837 172310 KIPDR4= 172310 
838 172312 KIPDR5= 172312 
839 172314 KIPDR6= 172314 
nT 172316 KIPDR7= 172316 
4 
4 *KERNEL ‘'l'’ PAGE ADDRESS REGISTERS 
4 
844 172340 KIPARO= 172340 
845 172342 KIPAR1= 172342 
846 172344 KIPAR2= 172344 
847 172346 KIPAR3= 172346 
848 172350 KIPAR4= 172350 
849 172352 KIPARS= 172352 
850 172354 KIPAR6= 172354 
851 172356 KIPAR7= 172356 
852 
853 sl eeteeerereerrtreererereetesereeaeteeeeeAnAeeNeeeAeeReeneeeeseese 


854 001110 -=1110 


rs 
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10.P11 28-MAR-79 09:03 COMMON TAGS SEQ 0018 
ee? .SBTTL COMMON TAGS 
857 sy eeeeeeererrereereeeeteeeteetereeeeeeeeeeeeeeeKeeeekeneereKeeeee 
858 7*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
4 :*USED IN THE PROGRAM. 
861 001100 -=1100 
862 001100 SCMTAG: ' s3;START OF COMMON TAGS 
863 001100 000000 SPASS: .WORD 0 :; CONTAINS PASS COUNT 
864 001102 000 STSTINM: .BYTE 0 :; CONTAINS THE TEST NUMBER 
865 001103 000 SERFLG: .BYTE 0 >: CONTAINS ERROR FLAG 
866 001104 000000 SICNT: .WORD 0 :; CONTAINS SUBTEST ITERATION COUNT 
86/ 001106 000000 $LPADR: .wORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
868 001110 000000 SLPERR: .WORD 0 >: CONTAINS SCOPE RETURN FOR ERRORS 
869 001112 000000 SERTTL: .WORD 0 >: CONTAINS TOTAL ERRORS DETECTED 
870 001114 SITEMB: .BYTE 0 >;CONTAINS ITEM CONTROL BYTE 
871 001115 SERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TES 
872 001116 000000 SERRPC: .WwORD 0 :: CONTAINS PC OF LAST ERROR STRUCTION 
873 001120 000000 $GDADR: .WwORD 0 :: CONTAINS ADDRESS OF ‘GOOD’ DATA 
874 001122 000000 $BDADR: .wORD 0 :: CONTAINS ADDRESS OF ‘BAD’ DATA 
875 001124 000000 $GDDAT: .WwORD 0 :: CONTAINS ‘GOOD’ DATA 
876 001126 000000 $BDDAT: .wORD 0 >: CONTAINS "BAD' DATA 
877 001130 000000 wORD 0 : ;RESERVED--NOT TO BE USED 
878 001132 000000 WORD 0 
879 001134 000 $AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
880 001135 000 SINTAG: .BYTE 0 >: INTERRUPT MODE INDICATOR 
881 001136 000000 ; WORD 0 
882 001140 177570 SwWR: -WORD DSwWR ::ADDRESS OF SWITCH REGISTER 
883 001142 177570 DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 
884 001144 177560 $TKS: 177560 :;TTY KBD STATUS 
885 001146 177562 $TKB: 177562 :;TTY KBD BUFFER 
886 001150 177564 $TPS: 177564 >: TTY PRINTER STATUS REG. ADDRESS 
887 001152 177566 $TPB: 177566 >; TTY PRINTER BUFFER REG. ADDRESS 
888 001154 000 $NULL: .BYTE 0 >: CONTAINS NULL CHARACTER FOR FILLS 
889 001155 002 $FILLS: .BYTE 2 >: CONTAINS # OF FILLER CHARACTERS REQUIRED 
890 001156 012 SFILLC: .BYTE 12 :: INSERT FILL CHARS. AFTER A “'LINE FEED" 
891 001157 000 STPFLG: .BYTE 0 ss''TERMINAL AVAILABLE'’ FLAG (B11<07>=0=YES) 
892 001100 000000 SREGAD: .WORD 0 :: CONTAINS THE ADDRESS FROM 
893 ::WHICH ($REGO) WAS OBTAINED 
894 001162 000000 $REGO: .WORD 0 >: CONTAINS (($REGAD) +0) 
895 001164 000000 $REG1: .WORD 0 >: CONTAINS (($REGAD) +2) 
896 001166 000000 $REG2: .WORD 0 :: CONTAINS (($REGAD) +4) 
897 001170 000000 $REG3: .WORD 0 >: CONTAINS (($REGAD) +6) 
898 001172 000000 $REG4: .WORD 0 :: CONTAINS (($REGAD) +10) 
899 001174 000000 $REGS: .WORD 0 :: CONTAINS (($REGAD) +12) 
900 001176 000000 S$TMPO: .WORD 0 > USER DEFINED 
901 001200 000000 STMP1: .WORD 0 USER DEFINED 
902 001202 000000 $TMP2: .WORD 0 : USER DEFINED 
903 001204 000000 $TMP3: .WORD 0 >; USER DEFINED 
904 001206 000000 S$TMP4: WORD O ;;USER DEFINED 
905 001210 000000 STMPS: .WORD 0 : USER DEFINED 
906 001212 000000 STIMES: 0 i MAX. NUMBER OF ITERATIONS 
907 001214 000000 SESCAPE:0 :ESCAPE ON ERROR ADDRESS 
908 001216 177607 000377 $BELL: .ASCIZ <20T><BF? >< S7?> >: CODE FOR BELL 
909 001222 077 $QUES: .ASCII /? > ;QUESTION MARK 
910 001223 015 SCRLF: . ASCII aie > CARRIAGE RETURN 
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911 001224 000012 $LF:  WASCIZ <12> S:LINE FEED 
912 pLeeeeeeerererrereereeeeeeererenerereteneeneeeeeeeeeeeeetenerenes 
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001226 


001226 
001230 


001232 
001234 


001236 
001240 


001242 
001244 


091246 
001250 
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051166 
067273 


071620 
072126 
051215 
067273 


620 


071 
072126 


051304 
067273 
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-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


:*NOTE1: IF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC) 
> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM >;POINTS TO THE ERROR MESSAGE 
7* DH s:POINTS TO THE DATA HEADER 
7* DT 3;POINTS TO THE DATA 
;* DF s;POINTS TO THE DATA FORMAT 
SERRTB: 
s+] TEM1 
EM1 ;RPO4 DID NOT INTERRUPT 
sWAITED ON BIT DID NOT OCCUR 
DH1 sPC 
sWAT PC 


;BIT WAITED 
;REG ADDRESS 
;REG CONTENTS 
;RHCS1 CONTENTS 


DT1 sSERRPC ,WAITPC,WAITBT,WAITRE,S$BDDAT,CS1 
DF 1 :0,0,0,0,0,0 
:*]TEM2 
EM2 ; INTERRUPT ENABLE BIT DOWN BUT 
sWAITED ON BIT DID NOT OCCUR 
DH1 sPC 
;WAT PC 


;BIT WAITED 
;REG ADDRESS 
;REG CONTENTS 
;RHCS1 CONTENTS 


DT1 sSERRPC ,WAITPC,WAITBT,WAITRE.SB8DDAT,CS1 
DFI 70,0,0,0,0.0 
se] TEMS 
EMS sRPO4 DID NOT INTERRUPT WHEN 
sWAILTED ON BIT DID SET 
DH1 PC 
sWAT PC 


BIT WAITED 

;REG ADDRESS 

;RHCS1 CONTENTS 
DT1 SSERRPC ,WALTPC ,WAITBT ,WAITRE ,$BDDAT,CS1 
DF :0,0,0,0,0.0 


se ]TEMS 


SEQ 0020 
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969 001256 051365 EMG ;WAITED ON BIT fy SET BUT 
970 sTIME IS IN ERRO 
971 sTIME IS GIVEN ‘ 10 MICRO SEC. 
972 3 (DECIMAL) 

973 001260 067452 DH4 PC 

974 sWAT PC 

975 sBIT WAITED 

976 ;REG ADDRESS 

977 TIME IN 10 MSEC 

978 001262 071640 D4 sSERRPC,WAITPC,WAITBT,WAITRE,SBDDAT ,WAITIM 
979 001264 072135 DFG 0,0,0,0.0,1 

980 

981 >] TEMS 

982 001266 051476 EMS sRHAS DOES NOT CLEAR BY 
983 sMOVING IN ALL ONES 

984 001270 067613 DHS 3 PC 

985 ;REG. ADDR. 

986 ;GOOD DATA 

987 sRECEIVED DATA 

988 001272 071660 DTS ;SERRPC ,REGADR,$GDDAT ,$BDDAT 
989 001274 072144 DFS :0,0,0,0 

990 

991 s*1TEM6 

992 001276 051550 EM6 ;LOADING RHER1 FOR ALL 

993 ;UNITS DID NOT SET ANY BITS 
994 3 1N RHAS-NO UNITS PRESENT 
995 001300 067732 DH6 3 PC 

996 ;REG ADDR 

997 sRECEIVED DATA 

998 001302 071674 DT6 sSERRPC,REGADR,$BDDAT 

999 001304 072151 DF6 30,0,0 

1000 
1001 st] TEM7 
1002 001306 051636 EM7 sSPECIFIED REGISTER NONEXISTANT 
1003 +30 ABORT PROGRAM 

10046 001310 070031 DH7 PC 

1005 “ADDR. OF REG. 

1006 001312 071706 D17 ;SERRPC, TEMP) 

1007 001314 072155 DF7 0,0 

1008 

1009 >*1TEM10 

1010 001316 051706 —EM10 :STOPED oni ve HAS MOL BIT 
1011 : IN RHDS1 = 

1012 001320 070071 DH10 = PC 

1013 TEST NO 

1014 :FAILING REG ADDR 

1015 ;CONTENTS OF RHCS1 

1016 ;CONTENTS OF RHCS2 

1017 sCONTENTS OF RHDS1 

1018 sCONTENTS OF RHER1 

1019 001322 071716 D110 sSERRPC,STSTNM, $BDADR,CS1,CS2,.DS1,ER1 
1020 001324 072160 DF10 :0,0,0,0,0,0, 

1021 

1022 pe] TEM11 

1023 001326 051755 —EM11 sW1TH SPINDLE POWERED DOWN 
1024 sRHCS2 SHOULD HAVE ONLY 
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0013350 


001332 
001334 


001336 


001340 


001342 
001344 


001346 


001350 


001352 
001354 


001356 
001360 


001362 
001364 


001366 
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070071 


071716 
072160 


052062 


070071 


071716 
072160 


052170 


070071 


071716 
072160 


052312 
067613 


09:03 ERROR POINTER TABLE 


;UNIT NUMBER AND IR HIGH 
DH10 7 
: TEST NO 
FAILING REG. ADR 
sCONTENTS OF RHCS1 
;CONTENTS OF RHCS2 
: CONTENTS OF cats 
: CONTENTS OF RHER 
110 :SERRPC,STSTNM, SBDADR, C$1,CS2,DS1,ER1 
F10 :0,0,0,0,0,0,0 


st 1TEMI2 
EM12 sAFTER A POWER UP WITH 

;NO PACK ACKNOWLEDGE er ager 

= RDS SHOULD HAVE MOL=1, vv=0 


TEST NO 

sFAILING REGISTER ADDR. 

:CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

;CONTETNS OF RHDS1 

;CONTENTS OF RHER1 
0 7SERRPC ,STSTNM,$BDADR,CS1,CS2,DS1,ER1 
0 :0,0,0,0,0,0.0 


;*1TEM13 
EM13 


DH10 


sAFTER A POWER UP WITHOUT 
ANY INIT RHCS1 SHOULD 
sHAVE GO=0, DVA=1, RDY=1 
;1€=0, DISREGARD 

oo OTHER BITS 


; TEST NO 

sFAILING REGISTER ADDR. 

CONTENTS OF RHCS1 

s;CONTENTS OF RHCS2 

;CONTENTS OF RHDS1 

;CONTENTS OF RHER1 
10 ;SERRPC,STSTNM,SBDADR,CS1,(S2,DSi,ER1 
10 :0,0,0,0,0,0,0 


it 1TEMI4 
EM14 


DH10 


sAFTER POWER UP RHCC 
2 eae BE=0 


;REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 

;SERRPC ,REGADR,SGDDAT ,$BDDAT 


30,0,0, 


DH5 


| 
ww 


s*1TEM15 
EM15 ry? + mts CAUSED 


;GOOD DATA IS BEFORE COMMAND 
RECEIVED DATA IS AFTER COMMAND 


SEQ 0022 
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1081 001370 067613 DHS sPt 
1082 sREG. ADDR. 
1083 ;GOOD DATA 
1084 ;RECEIVED DATA 
1085 001372 071660 D15 ; SERRPC ,REGADR,SGDDAT ,SBDDAT 
1086 001374 072144 DF5 :0,0,0,0 
1087 
1088 ;*1TEM16 
1089 001376 052526 EM16 :GIVING A NO-OP COMMAND CAUSED 
1090 :AN ERROR 
1091 ;GOOD DATA GIVES REGISTER 
1092 ; CONTENTS BEFORE COMMAND 
1093 RECEIVED DATA GIVES REGISTER 
1094 ;CONTENTS AFTER COMMAND 
1095 001400 067613 DHS :PC 
1096 ;REG. ADDR. 
1097 GOOD DATA 
1098 sRECEIVED DATA f 
1099 001402 071660 DT5 ; SERRPC ,REGADR,SGDDAT , $BDDAT 
stot 001404 072144 DF5 :0,0,0,0 
1102 > 1TEM17 
1103 001406 052654 EMI7 ;DRIVE CLEAR COMMAND 
1104 ; CAUSED AN ERROR 
1105 ;GOOD DATA GIVES WHAT SHOULD 
1106 BE THERE 
1107 RECEIVED DATA GIVES WHAT WAS 
1108 ; THERE AFTER COMMAND 
1109 001410 067613 DH5 :PC 
1110 ;REG. ADDR. 
1111 :GO0D DATA 
1112 sRECEIVED DATA 
1113. 001412 071660 D15 ;SERRPC ,REGADR ,$GDDAT , $BDDAT 
Ab 001414 072144 DF5 :0,0,0,0 
1116 ;*1TEM20 
1117 001416 053011 EM ;READ-IN COMMAND GAVE AN ERROR 
1118 ;GOOD DATA HAS WHAT SHOULD BE THERE 
1119 RECEIVED DATA HAS WHAT WAS 
1120 ;AFTER COMMAND 
1121 001420 067613 DHS :PC 
1122 sREG. ADDR. 
1123 ;GOOD DATA 
1124 RECEIVED DATA 
1125 001422 071660 DT5 sSERRPC ,REGADR,SGDDAT , $BDDAT 
1126 001424 072144 DFS :0,0,0,0 
1127 
1128 
1129 t1TEM 21 
1130 001426 053155 EM21 ;RHCS1 CONTENTS DURING 
1131 ;COMMAND WAS IN ERROR 
1132 001430 067613 DH5 
1133 001432 071660 ‘ D15 
1134 001434 072144 DFS 
1135 
1136 st1TEM 22 


ow 


m—-OOOnN 


001436 


001440 
001442 
001444 


001446 


001450 


001452 
001454 


001456 


001460 
001462 
001464 


001466 


001470 
001472 
001474 


001476 
001500 


001502 
001504 


001506 


001510 
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053230 
067613 


071660 
072144 


053303 


067613 


071660 
072144 


053446 


067613 
071660 
072144 


053611 


067613 
071660 
072144 


053773 
070250 


067613 
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;RHDS1 CONTENTS DURING 
;COMM ANS WAS IN ERROR 


;UNLOAD COMMAND GAVE AN ERROR 
;GOOD DATA GIVES WHAT SHOULD 
: THERE 

sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


OFFSET COMMAND CAUSED AN ERROR 
;GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER AN OFFSET COMMAND 


;RETURN TO CENTER LINE COMMAND 
; CAUSED AN ERROR 
Nagas GIVES WHAT SHOULD BE 


; THE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


J+ OFFSETS CAUSED AN ERROR 
;CONT. OF RHCS1 

sCONT. OF RHCS2 

;CONT. OF RHDS1 

;CONT. OF RHER1 

sCONT. OF RHER2 

sCONT. OF RHERS 
sSERRPC,CS1,CS2,DS1,ER1,ER2,ER3 
:0,0,0,0,0,0,0 


;WRITE HEADER AND DATA 
;CAUSED IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT 


WAS THERE AFTER COMMAND 


Nm 
se 


0 


» RPOG/5/6 FCTNL CTLRI 
Pil 28-MAR-79 09:03 ERROR POINTER TABLE 
001512 071660 DTS 
001514 072144 DFS 
s*1 TEM 30 
001516 054301 EM30 
001520 070447 DH30 
001522 071760 D130 
001524 072177 DF 30 
st] TEM 31 
001526 054361 EM31 
00:!530 067613 DHS 
001532 071660 DTS 
001534 072144 DFS 
st]TEM 32 
001536 054576 EM 
001540 070447 DH30 
001542 071760 » 0130 
001544 072177 DF 30 
st1TEM 33 
001546 054705 EM 
001550 067613 DHS 
001552 071660 D15 
001554 072144 DFS 
StI TEM 34 
001556 055107 EM34 
001560 070447 DH30 
001562 071760 D130 
001564 072177 DF 30 
se 1TEM 35 
001566 055133 —EM35 
001570 067613 DHS 
001572 071660 o15 


mM 2 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 26 


;WRITE HEADER AND DATA 
—. WRITE FROM BUFFER 


‘WORD NO 
‘GOOD DATA 
“BAD D 


; ATA 
; SERRPC ,ERWORD ,SGDDAT , SBDDAT 


:READ HEADER AND DATA CAUSED 
S IMPROPER REGISTER CHANGE 
=GOOD.DATA HAS WHAT SHOULD 


;BE THERE 


;RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


;WRITE HEADER AND DATA FOLLOWED 
;BY A READ HEADER AND DATA 
; CAUSED A READ/WRITE ERROR 


ey mee CAUSED IMPROPER REGISTER 
; CHAN 


; CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE THERE 
;RECEIVED DATA GIVES WHAT WAS THERE AFTER 


; COMMAND 


READ DATA INCORRECT 


;WRITE DATA COMMAND CAUSED 

; IMPROPER REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
;CONTENTS AFTER WRITE DATA 


sea 0025 | 


CZRJIDO, RPOG/5/6 FCTNL CTLR1 
28-MAR-79 


CZRJID.P11 


ee ss Ls 
Mrrerererr rrr 
PAA AAA AUT 
OSONAUVEWN—O 


NMmMrynNr 
Cann 
Wr —© 


oo 
wok) 


SURREAL 
SN 
MO OOnNO USWH— 


ee dt ed 
02 C9 Co Oo 
Ww 


284 


001574 
001576 
001600 


001602 
001604 


001606 


001624 


001626 


001630 
001632 
001634 


001636 


001640 
001642 
001644 


072144 


055351 
070447 


071760 
072177 


055426 


067613 
071660 
072144 


055643 


067613 
071660 
072144 


056052 


DFS 
st1TEM 36 
EM36 


s*1TEM 37 
EM37 


s*1TEM 40 
EM40 


t1TEM 41 
EM41 


st 1TEM 42 
EM42 


DHS 
DFS 


MACY11 30A(1052) 25-MAY-79 
09:03 ERROR POINTER TABLE 


N 2 
10:30 PAGE 27 


eee 
ce 
zw 
— 
4 
mn 
"oO 


ATA COMMAND CHANGED 
ROM BUFFER 


;SEEK COMMAND CAUSED AN 
; ERROR 


0 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
:RECEIVED DATA GIVES WHAT 
sWAS THERE AFTER SEEK COMMAND 


WRITE CHECK CAUSED AN 

: IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
;BE THERE - 

RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;LOCKING OUT WRITES BY WRITE 
;LOCK BUTTON CAUSED IMPROPER 
REGISTER CHANGE 

;GO0D DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT 
sWAS THERE AFTER WRITES 
WERE LOCKED OUT BY 
;BUTTON 


ATTEMPTING TO WRITE WITH WRITE 
;LOCKED OUT CAUSED IMPROPER 
REGISTER CHANGE 

+e GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPT 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


oo 


Nm 
OWS WNH—OOCONCUFWNH—OvO®w 


NWN WN NWA AIAN ANAAWWw 
POPIPOIPOIPID 


sas ss ss ss es ss Ss es ss 


001646 


001650 
001652 
001654 


001656 


001660 
001662 
001664 


001666 


001070 
001672 
001674 


0016/6 


001700 
091702 
001704 


001706 


28-MAR-79 


056611 


070447 
071760 
072177 


057153 


067613 
071660 
072144 


057445 


067613 
071660 
072144 


057741 


09:03 


MACY11 


30A(1052) 25-MAY-79 
ERROR POINTER TABLE 


stI1TEM 43 
EM43 


stlTEM 44 
EM44 


st 1TEM 45 . 
EM45 


s*1 TEM 47 
EM47 


B 3 
10:30 PAGE 28 
SEQ 0027 


WRITING WITH WRITE LOCKED 
;OUT CHANGED DISK DATA 

;GO0D DATA GIVES WHAT WAS 

;ON DISK BEFORE WRITE WITH 
;WRITF LOCK WAS ATTEMPTED 
RECEIVED DATA GIVES WHAT WAS 
READ BACK ASTER WRITE WITH 
;WRITE LOCK WAS ATTEMPTED 


ENABLING WRITES BY WRITE LOCK 
;BUTTON CAUSED AN ERROR 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER WRITE LOCK 
;BUTTON ENABLED WRITES 


; TRANSFERRING ON LAST BLOCK IE. CYLINDER 
3410, SECTOR 21, TRACK 18 
: CAUSED IMPROPER REGISTER 
:GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
:RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 


;DATA READ FROM LAST 
;BLOCK IE. CYLINDER 410 
SECTOR 21, TRACK 18 IS IN 
; ERROR 


; TRANSFERRING FROM NONEXISTANT 
; SECTOR CAUSED IMPROPER 
REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED 


on 


CZRJIDO, RPO4/5/6 FCTNL CTLRI 
28-MAR-79 09:03 


CZRJID.P11 


001720 
001722 
001724 


001726 


001730 


001732 
001734 


001736 


001740 
001742 
001744 


001746 
001750 


001752 
001754 


001756 


070447 
071760 
072177 


060555 


070563 


071774 
072204 


061022 


061277 
070447 


071760 
072177 


061365 


MACY11 


;*1TEM 51 
EM51 


DHS1 


53 


se1TEM 54 
EMS4 


V—___—_—_—_—_—_—_—_—————————— OO 


e 3 
30A(1052) 25-MAY-79 10:30 PAGE 29 
ERROR POINTER TABLE 


; TRANSFER 


; TRANSFERRING FROM NONEXISTANT 
SECTOR CAUSED DATA ERROR 
;GOOD DATA GIVES WHAT 

; SHOULD BE IN BUFFER 

;RECEIVED DATA GIVES WHAT WAS 
; IN BUFFER AFTER TRANSFER 


:GIVING ILLEGAL FUNCTION CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE 


; THERE 
sRECEIVED DATA GIVES REGISTER 
;CONTENTS AFTER ILLEGAL FUNCTION 


;PC 

;REG. ADDR. 

:GOOD DATA 

RECEIVED DATA 

; ILLEGAL FUNCTION 

;SERRPC ,REGADR,SGDDAT ,SBDDAT, ILLEGL 


. 
e . ’ . . 


;WRITE DATA ON NONEXISTANT 
SECTOR CAUSED IMPROPER 
REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER ATTEMPTED 
WRITE DATA 


;READ HEADER AND DATA AFTER 
7A SEARCH CAUSED AN ERROR 


;ATTEMPTED OPERATION WITH 
: INVALID ADDRESS CAUSED 
; IMPROPER REGISTER CHANGE 


SEQ 0028 


CZ 
C2 


0 


001760 
001762 
001764 


001766 


001770 
001772 
001774 


001776 


002000 
002002 
002004 


002006 


002010 
002012 
002014 


002016 


002020 


, RPO4/5S/ 
Pil 28 


6 FC 
-MAR 


070447 
071760 
072177 


062330 


067613 
071660 
072144 


062622 


070722 


MACY11 30A(1052) 25-MAY-79 


ERROR POINTER TABLE 


s*1TEM 55 
EMSS 


;*1TEM 56 
EM56 


7*1TEM 57 
EMS7 


7*1TEM 60 
EM60 


DH60 


dD 3 
10:30 PAGE 30 


SEQ 0029 


ioe TN ore GIVES WHAT SHOULD 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER OPERATION 


;WRITING/READING WITH EXPECTED 
ADDRESS OVERFLOW ERROR CAUSED 
; IMPROPER REGISTER CHANGE 


;GOO0D DATA GIVES WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER OPERATION 


;DATA READ WITH AN EXPECTED 
;ADDRESS OVERFLOW ERROR IS 
; INCORRECT 

;WORD NO 1 TO 260 SHOULD 
;BE READ 

;WORD NOS 261 TO 266 SHOULD 
;NOT CHANGE DUE TO READ 


;ATTEMPTING DATA COMMAND 

;W1TH WRONG FORMAT BIT CAUSED 

; IMPROPER REGISTER CHANGE 
oe. GIVES WHAT SHOULD BE 
> TH 


“RECEIVED DATA GIVES WHAT WAS 
“THERE AFTER ATTEMPTED DATA 
“ TRANSFER 


ATTEMPTING TO MODIFY REGISTER 
; DURING AN OPERATION CAUSED 


; IMPROPER REGISTER CHANGE 

: 6000 DATA GIVES WHAT SHOULD 
;BE THERE 

;RECEIVED DATA thd WHAT WAS 
; THERE AFTER OPERATION 


:WAS COMPLETE 
“REG. ADDR. 


el le le el ee el el el ee ee ee ee ee 
PAAAAMAAAAAFAGAAFAAWVAWAAWUIW UU 


PODS PEP PON NM NY NO —* SO OS SS S| OO 
WNC WF Wr —OO@BnO ViFwn-0O OW 


PI 


002022 
002024 


002026 
002030 


002032 
002034 


002036 
002040 


002042 
002044 


002046 


002050 
002052 
002054 


002056 


002060 
002062 
002064 


002066 
002070 


002072 
002074 


072042 
072224 


063375 


067613 
071660 
072144 


063451 


067613 
071660 
072144 


072054 
072230 


teal FCTNL CTLRI 


28-MAR-79 09:03 


MACY11 30A(1052) 25-MAY-79 
ERROR POINTER TABLE 


D160 
DF60 


;*1TEM 61 
EM61 
DH61 


D161 
DF 61 


s*1TEM 62 
EM62 
DH62 


D162 
DF62 


:t1TEM 63 
EM63 


st 1TEM 64 
EM64 


DHS 
D15 
DF5 


71 TEMOS 


EM65 
DH65 


D165 
DF65 


e 2 
10:30 PAGE 31 


;GOOD DATA 

RECEIVED DATA 

;MODFING REGISTER 

2 WAV 8 sartrpe note conte he oneate 


+ * ht NOT AVAILBLE BEFORE COMMAND WAS TO BE GIVEN 


:PC OF JSR 
‘RHCS1 CONTENTS 
: $ERRPC,$TSTNM,PCJSR, SBDADR 


7 
. ’ ’ ’ 


— HAS STATUS BITS STUCK AT ONE 


sh 

; TEST NO. 

:PC OF JSR 

;RHDS1 CONTENTS 
;SERRPC,STSTNM,PCJSR,S$BDADR 


:0,0,0, 


;RHDS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 


;RECALIBRATE COMMAND CAUSED 

; IMPROPER REGISTER CHANGE. 

iy a GIVES WHAT SHOULD BE 

3TH ° 

sRECEIVED DATA GIVES WHAT WAS THERE 
; AFTER COMMAND 


; INTERRUPT FAILING 
; PC 


; TEST NO 

; CONTENTS OF RHCS1 

; CONTENTS OF RHAS 
sCONTENTS OF RHDS1 
sSERRPC,TSTNM,CS1,AS,DS1 


’ . ’ ’ . 


SEQ 0030 


CZRJ1DO, RPO4/5/6 FCTNL CT at 
CZRJID.P11 


SS 
PAPA AAAS SSI 
SF AWAWAAWwWwwr 
—OOOnCOUFWN—O”O 


uw 
uw 
— 


uw 
SO OONOUWE Wh 


SS ee ee 
PANAMA 
HSMM 


61 


1569 


ee ee ee ee ee se ee ee he re he) 
PAPAAAAAAAAMAR UT UT 
Oo 0 OO NN NNN NNN 
PUN —$O OOnO VFwn—oO 


002076 


002100 


002102 
002104 


002106 


002110 
002112 
002114 


002116 


002120 
002122 
002124 


002126 


002130 


002132 
002134 


002136 


28-MAR-79 09: 


063712 


071370 


072070 
072235 


064104 


070447 
071760 
072177 


064374 


070447 
071760 
072177 


064602 


067615 


071660 
072144 


065345 


03 


MACY11 y ages 25-MAY-79 
ERROR POINTER TABLE 


> *1TEM66 
EM66 
DH66 


D166 
DF 66 
7 *1TEM67 


OF 
7*1TEM70 
EM 


se 1TEM 71 
EM71 


DHS 


D15 

DF5 
pe1TEM 74 

EM74 


ae 
10:30 PAGE 2 


sHEADER AND DATA COMMAND 

;FOR HEAD SELECTION TEST 

;CAUSED AN ERROR 

;RHDST GIVES WHAT TRACK 

;WAS BEING WRITTEN ON CYLINDER 0 
+ + jliagy 0 


sRHCS2 
;SERRPC,DST,ER1,ER2,ER3,CS1,CS2 
:0,0.0,0,0,0,0 


;READ HEADER AND DATA ERROR 

; IN HEAD SELECTION TEST 
;FIRST FOUR WORDS GIVE HEADER 
;NEXT WORDS ARE DATA 

;GOOD DATA WORDS GIVE 

; THE TRACK NUMBER IN 

:BITS 4,5,6,7,8 


;READ HEADER AND DATA ERROR 
7IN DIFFERENCE LINE TEST 
;WORD NOS. 1-4 GIVE 

; HEADER 

;WORD NOS. 5-260 GIVE DATA 
sWHICH IS THE CYLINDER 

; ADDRESS 


sgrte OP] CAUSED IMPROPER REGISTER 
; CHAN 

—— DATA GIVES WHAT SHOULD 

:BE THERE 

;RECEIVED DATA GIVES WHAT WAS 

on AFTER 3 INDEX PULSES 


:PC 

;REG. ADDR. 

;GOOD DATA 

RECEIVED DATA 

;SERRPC ,REGADR ,SGDDAT ,SBDDAT 


WHILE USING UNIBUS B 
;READ DATA CAUSED IMPROPER REGISTER 


SEQ 0031 


Petics RP04/5/6 4" fatty 


10.P11 


002140 
002142 
002144 


002146 
002150 


002152 
002154 


002156 


002160 
002162 
002164 


002166 


002170 
002172 
002174 


002176 


002200 
002202 
002204 


002206 
002210 


002212 
002214 


28-MAR-79 


067613 
071660 
072144 


065273 
070447 


071760 
072177 


065345 


067613 
071660 
072144 


065611 


070447 
071760 
072177 


065714 


MACY11 30A(1052) 25-MAY-79 


ERROR POINTER TABLE 


st1TEM 74 
EM74 


st 1TEM 75 
EM75 


DH30 
D130 
DF 30 


st1TEM 76 
EM76 


se1TEM 77 
EM77 
DH77 


G 3 
10:30 PAGE 


33 


; CHANGE 


;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER 


; COMMAND 


;WHILE USING UNIBUS B 


;READ DATA INCORRECT 


;WHILE USING UNIBUS B 

;WRITE DATA COMMAND CAUSED 

; IMPROPER REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES REGISTER 
;CONTENTS AFTER WRITE DATA 


;WHILE USING UNIBUS B 

WRITE CHECK CAUSED AN 

; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 


WHILE USING UNIBUS B 
otf DATA COMMAND CHANGED 
WRI 


FROM BUFFER 


;BE THERE 


RECEIVED DATA CIVES WHAT WAS 


; THERE AFTER COMMAND 


CURRENT CYLINDER DOES NOT REFLECT DESIRED "RHCC* 


;PC 
:PC OF JS 


R 
arte he ADDRESS 
OD DAT 


;BAD DATA 


SERRPC, PCJSR,REGADR,S$GDDAT , $BDDAT 


o . . ’ 


SEQ 0032 


002216 
002220 


002222 
002224 


002226 
002230 


002232 
002234 


002236 
002240 


002242 
002244 


002246 
002250 


002252 
002254 


002256 
002260 


002262 
002264 


‘ood A she 
28-MAR-7 


066374 
067613 


066456 
070250 


071736 
072167 


066540 
070250 


071736 
072167 


066617 


070250 


066703 


MACY11 30A(1052) 


DHS 


D15 
DFS 


s*1TEM 101 
—EM101 


DH26 


D126 
DF 26 


*1TEM 102 
EM102 


DH26 


D126 
DF 26 


s*1TEM 103 


EM103 
DH26 


D126 
DF 26 


;t1TEM 104 


EM104 
DH26 


D126 
DF 26 


25-MAY-79 
ERROR POINTER TABLE 


:*1TEM 100 
E4100 


H 3 
10:30 PAGE 34 


+ AFTER ADDRESS PLUG CHANGE 
REGISTER ADDRESS 


;G0 
:RECEIVED DAT 
;SERRPC,, REGADR, $SGDDAT ,$BDDAT 


;UNIT DID NOT GO OFFLINE WHEN ADDR 
;PLUG WAS REMOVED 


;CONT OF RHCS1 
CONT OF RHCS2 
CONT OF RHDS1 
;CONT OF RHER2 
;CONT OF RHERS 
;SERRPC,CS1,CS2,DS1,ER2,ER3 
:0,0,0,0,0,0,0 


;UNIT DID NOT COME BACK ONLINE WHEN 
;ADDOR PLUG WAS REPLACED 


;CONT OF RHCS1 
;CONT OF RHCS2 


CON RHER3 
“SERRPC, CS1,CS2,DS1,ER2,ER3 
30.0.0, 6.0,0.0 


REGISTER CONTENTS INCORRECT BEFORE A 
| aati SEEK 


CONT OF RHCS1 
CONT OF RHCS2 
CONT OF RHDS1 
; CONT OF ae 


;CONT OF RHERS 
:SERRPC, (St, rt82, DS1,ER2,ER3 
:0,0,0,0,0.0,0 


REGISTER CONTENTS INCORRECT AFTER A 
1 4 atari SEEK 


PC 
CONT OF RHCS1 
;CONT OF RHCS2 
;CONT OF RHDS1 
4pm OF RHER2 
T OF RHER3 
‘SERRPC, CS1,CS2,DS1,ER2,ER5 
:0,0,0,0,0,0,0 


SEQ 0035 


CZRJ1D0, RPOS/5/6 FCTNL CTLRI 
CZRJID.P11 28-MAR-79 09:03 


1697 


MACY11 30A(1052) 


25-MAY-79 


“ERROR POINTER TABLE 


1 3 
10:30 PAGE 35 


SEQ 0034 


mm 


J 3 
CZRJ1D0, RPOG/5/6 FCTNL CTLR1 MACY11 30A(1052) 25-MAY-79 10:30 PAGE 36 


CZRJID.P11 28-MAR-79 09:03 ERROR POINTER TABLE SEQ 0035 
1698 
1699 pp eeeerererrerrerereererereerererrerereeneeeeeeeeeeneeeeeeeeee ee 
1700 ;*RH11 REGISTERS 
1701 Sp eeeeeeerereererereererererenteeeerereteeeeeeeeeeeeeeeeeeTeeeeee 
1702 
1703 
ee 002266 000254 RPVEC: 254 :RPOG4 VECTOR ADDRESS 
1706 
1707 
1708 ;*WORD COUNT REGISTER (RHWC) 
444 ;*EACH BIT 1S CALLED BY BIT NUMBER 
1711 
1712 
1713 ;*BUS ADDRESS REGISTER (RHBA) 
Ay ;*EACH BIT 1S CALLED BY BIT NUMBER . 
1716 
1717 
4a ;*CONTROL AND STATUS REGISTER 2 (RHCS2) 
1720 000001 US1= 1 :UNIT SELECT (BIT #0) 
1721 000002 US2= 2 ;UNIT SELECT (BIT #1) 
1722 000004 US4= 4 sUNIT SELECT (BIT #2) 
1723 000010 BAl= 10 ;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
1724 000020 UNIB= 20 ;UNIBUS B DC LO (BIT #4) 
1725 000040 CLR= 40 :CLEAR (BIT #5) 
1726 000100 IR= 100 ; INPUT READY (BIT #6) 
1727 000200 OR= 200 ;OUTPUT READY (BIT #7) 
1728 000400 MPE= 400 7MASS BUS PARITY ERROR (BIT #8) 
1729 001000 MXF = 1000 ;MISSED TRANSFER ERROR (BIT #9) 
1730 002000 PGE= 2000 ;PROGRAM ERROR (BIT #10) 
1731 004000 NEM= 4000 ;NON EXISTANT MEMORY (BIT #11) 
1732 010000 NED= 10000 7NON EXISTANT DRIVE (BIT #12) 
1733 020000 UPE= 20000 . ;UNIBUS PARITY ERROR (BIT #13) 
1734 040000 WCE= 40000 © ;WRITE CHECK ERROR (BIT #14) 
4 100000 DLT= 100000 ;DATA LATE (BIT #15) 
6 
1737 ;*DATA BUFFER REGISTER (RHDB) 
1738 ;*EACH BIT IS CALLED BY BIT NUMBER 
1739 
1740 


K 3 

CZRJ1D0, RPOG/5/6 FCTNL CTLR1 MACY11 30A(1052) 25-MAY-79 10:30 PAGE 37 

CZRJIO.P11 28-MAR-79 09:03 ERROR POINTER TABLE SEQ 0036 
1741 sp eeeeeerereeereerereeeeeereeeeteeeeereeeee eee eeeeeerereeeee 
1742 s*RPOG REGISTERS 
1743 py eeeeeereerereteneeeeeeeeeteeeeereneeeeeeeeterenareetetereeAeee 
1744 
1745 
1746 
1 bce >*CONTROL AND STATUS 1 REGISTER. (#00) 
1749 000001 GO= 1 360 (BIT #0) 
1750 000100 lE= 100 : INTERRUPT ENABLE (BIT #6) 
1751 000200 RDY= 200 READY (BIT #7) 
1752 000400 Al6= 400 HIGH ORDER UNIBUS BITS (BIT #8) 
1753 001000 Al7= 1000 sHIGH ORDER UNIBUS BITS (BIT #9) 
1754 002000 PSEL= 2000 PORT SELECT (BIT #10) 
1755 004000 DVA= 4000 DEVICE AVAILABLE (BIT #11) 
1756 020000 MCPE= 20000 sMASSBUSS PARITY ERROR (BIT #13) 
1757 040000 TRE= 40000 s TRANSFER ERROR (BIT #14) 
8 100000 SC= 100000 :SPECIAL CONDITION (BIT #15) 
they s*STATUS REGISTER (RHDS1) (#01) 
1762 000001 DFFS= 1 DRIVE FORWARD 5°'/SEC. (BIT #0) 
1763 000002 DFF20= 2 DRIVE FORWARD 20°'/SEC. (BIT #1) 
1764 000004 DIGB= 4 :DRIVE TO INNER GAVRD BAND (BIT #2) 
1765 000010 GRv= 10 GO REVERSE (BIT #3) 
1766 000020 DL64= 20 DIFFERENCE LESS THAN 64 (BIT #4) 
1767 000040 DE1= 40 DIFFERENCE EQUALS 1 (BIT #5) 
1768 000100 VV= 100 sVOLUME VALID (BIT #6) 
1769 000200 DRY= 200 DRIVE READY (BIT #7) 
1770 000400 DPR= 400 DRIVE PRESENT (BIT #8) 
1771 001000 PROG= 1000 ;PROGRAMABLE (BIT #9) 
1772 002000 LBT= 2000 LAST SECTOR TRANSFERRED (BIT #10) 
1773 004000 WRL= 4000 WRITE LOCK (BIT #11) 
1774 010000 MOL= 10000 :MEDIUM ON-LINE (BIT #12) 
1775 020000 PIP= 20000 POSITIONING OPERATION IN PROGRESS (BIT #13) 
1776 040000 ERR= 40000 sCOMPOSIT ERROR. (BIT #14) 
Mas 100000 ATA= 100000 ATTENTION ACTIVE (BIT #15) 
1779 :*ERROR REGISTER #01 (RHER1) (#02) 
1780 000001 ILF= 1 sILLEGAL FUNCTION (BIT #0) 
1781 000002 ILR= 2 sILLEGAL REGISTER (BIT #1) 
1782 000004 RMR= 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
1783 000010 PAR= 10 PARITY ERROR (BIT #3) 
1784 000020 FER= tv FORMAT ERROR (BIT #4) 
1785 000040 wCF= 40 sWRITE CLOCK FAIL (BIT #5) 
1786 000100 ECH= 100 ECC HARD ERROR (BIT #6) 
1787 090200 HCE= 200 ;HEADER COMPARE ERROR (BIT #7) 
1788 000400 HCRC= 400 sHEADER CRC ERROR (BIT #8) 
1789 001000 AOE = 1000 ADDRESS OVERFLOW ERROR (BIT #9) 
1790 002000 1AE= 2000 INVALID ADDRESS ERROR (BIT #10) 
1791 004000 WLE= 4000 WRITE LOCK ERROR (BIT #11) 
1792 010000 DTE= 10000 DRIVE TIMING ERROR (BIT #12) 
1793 020000 OP I= 20000 OPERATION INCOMPLETE (BIT #13) 
1794 040000 UNS= 40000 DRIVE UNSAFE (BIT #14) 
1795 100000 DCK= 100000 DATA CHECK ERROR (BIT 15) 
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RJID.P11 28-MAR-79 09:03 ERROR POINTER TABLE SEQ 0037 
fds s*MAINTAINABILITY REGISTER (RHMR) (#03) 
1799 000001 DMD= 1 :DIAGINOSTIC MODE (BIT #0) 
1800 000002 MCLK= 2 *MAINTAINABILITY CLOCK (BIT #1) 
1801 000004 MINX= 4 SMAINTAINABILITY INDEX (BIT #2) 
1802 000010 MSTCK= 10 :MAINTAINABILITY SECTOR CLOCK (BIT #3) 
1803 ~ 000020 MRD= 20 sMAINTAINABILITY READ (BIT 
1804 000040 MWR= 40 :MAINTAINABILITY WRITE ‘Blt 8 15) 
1° 001000 DTSY= 1000 sMAINTAINABILITY SYNC DETECTED (BIT #9) 
1607 ®ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
1809 000001 AT0= 1 DEVICE 0 (BIT #0) 
1810 000002 AT1= 2 :DEVICE 1 (BIT #1) 
1811 000004 AT2= 4 DEVICE 2 (BIT #2) 
1812 000010 AT3= 10 DEVICE 3 (BIT #3) 
1813 000020 AT4= 20 DEVICE 4 (BIT #4) 
1814 000040 ATS= 40 DEVICE 5 (BIT #5) 
1815 000100 ATo= 100 DEVICE 6 (BIT #6) 
sBi¢ 000200 Al7= 200 DEVICE 7 (BIT #7) 
1818 s*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
1819 :*EACH BIT 1S CALLED BY BIT NUMBER 
1820 
1821 
1822 
1823 
1824 
1825 *DRIVE TYPE REGISTER (RHDT) (#06) 
1826 :*EACH BIT IS CALLED BY BIT NUMBER 
1827 
1828 
1829 
1830 
1831 
H+ 43 s*LOOK-AHEAD REGISTER (RHLA) (#07) 
1834 000001 EXTl= 1 EXTENSION 1 (BIT #0) 
1835 000002 EXT2= 2 “EXTENSION 2 (BIT #1) 
1836 000004 EXT4= 4 EXTENSION 3 (BIT #2) 
1837 000010 ExXT10= 10 sEXTENSION 4 (BIT #3) 
838 000020 ExT20= 20 sEXTENSION 5 (BIT #4) 
1839 000040 EXT40= 40 sEXTENSION 6 (BiT #5) 
1840 000100 $C i= 100 SECTOR COUNT FIELD 0 (BIT #6) 
1841 000200 =Ctéi. $C2= 200 SSECTOR COUNT FIELD 1 (BIT #7) 
1842 000400 $(4= 400 SECTOR COUNT FIELD 2 (BIT #8) 
1843 001000 ; $c10= 1000 SECTOR COUNT FIELD 3 (BIT #9) 
1844 002000 $¢20= 2000 SECTOR COUNT FIELD 4 (BIT #10) 
1845 004000 TRK1= 4090 TRACK FIELD 1 (BIT #11) 
1846 010000 TRK2= 10000 s TRACK FIELD 2 (BIT #12) 
1847 020000 TRK4= 20000 s TRACK FIELD 3 (BIT #13) 
1848 040000 TRK10= 40000 s TRACK FIELD & (BIT #14) 
ot 100000 TRK20= 100000 ; TRACK FIELD 5 (BIT #15) 
1 
et s*ERROR REGISTER #2 (RHER2) (#10) 
1852 
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1855 000001 
1854 000002 
1855 000004 
1856 000010 
1857 000020 
1858 000040 
1859 000100 
1860 000200 
1861 000400 
1862 001000 
1863 002000 
1864 004000 
1865 010000 
1866 020000 
1867 100000 
1868 
1869 
1870 
1871 000001 
1872 000002 
1873 000004 
1874 000010 
1875 000020 
1876 000040 
1877 
1878 000200 
1879 002000 
1880 004000 
1881 010000 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 i 
1903 000001 
1904 000002 
1905 000010 
1906 000020 
1907 000040 
1908 000100 


MACY11 30A(1052) 


25-MAY-79 


ERROR POINTER TABLE 


Mm 3 
10:30 PAGE 39 


sWRITE CURRENT UNSAFE (BIT #0) 
CURRENT SINK FAILURE (BIT #1) 

SWRITE SELECT UNSAFE (BIT #2) 

;CURRENT SWITCH UNSAFE (BIT at 

:MOTOR SEQUENCE ERROR (BIT 

; TRANSITIONS DETECTOR FAILURE. (BIT #5) 
STRANSITIONS UNSAFE (BIT #6) 


= MULTIPLE HEAD SELECT (BIT #9) 
:NO HEAD SELECTION (BIT #10) 

: INDEX ERROR (BIT #11) 

:30VOLT UNSAFE (BIT nn) 

sPLO UNSAFE (BIT #13) 
sACUNSAFE (BIT #15) 


sOFFSET 25 MICRO INCHES (BIT #0) 
sOFFSET 50 MICRO INCHES (BIT #1) 
OFFSET 100 MICRO INCHES (BIT #2) 
OFFSET 200 MICRO INCHES (BIT #3) 
OFFSET 400 MICRO INCHES (BIT #4) 
;OFFSET 800 MICRO INCHES (BIT #5) 


OFFSET NEGATIVE (REVERSE) (BIT #5) 
;HEADER COMPARE INHIBIT (BIT #10) 
sERROR CORRECTION CODE INHIBIT (BIT #11) 


weu= 
(Se 82 
wSU= 4 
csu= "10 
MSE= 20 
TDF= 40 
TUF= 100 
FEN= 200 
wRU= 400 
MHS= —- 1000 
NHS= 2000 
IXE= 4000 
vu30= 10000 
PLU= 20000 
ACU= —- 100000 
:*OFFSET REGISTER (RHOF) (#11) 
OF25= 1 
OF50= 2 
OF100= 4 
OF200= 10 
OF400= 20 
OF800= 40 
OFREV= 200 
HCI= 2000 
ECl= 4000 
FMT22= 10000 


;FORMAT BIT (BIT #12 


*DESIRED CYLINDER ADDRESS (RHCA) (#12) 
;*EACH BIT 1S CALLED BY BIT NUMBER. 


;*CURRENT CYLINDER ADDRESS (RHCC) (#13) 
;*EACH BIT 1S CALLED BY BIT NUMBER 


;*SERIAL NUMBER REGISTER (RHSN) (#14) 
7*EACH IS CALLED BY B11 NUMBER 


*ERROR REGISTER #03 (RHERS) (#15) 


PSU= 
VUF = 
UWR= 
PRE= 
ACL= 
DCL= 


1 
2 
10 
20 
40 
100 


;PACK SPEED UNSAFE (BIT #0) 

VELOCITY UNSAFE (BIT #1) 

;ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
;DI1SK PACK ROTATION ERROR (BIT #4) 

;AC LOW (BIT #5) 

;0C LOW (BIT #6) 


SEQ 0038 


N 3 
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CZRJID.P11 28-MAR-79 09:03 ERROR POINTER TABLE SEQ 0039 
1909 020000 ACE= 20000 sADDRESS CHANGE ERROR (BIT #13) 
1910 040000 SKI= 40000 SEEK INCOMPLETE (BIT #14) 
oi2 100000 OCYL= 100000 sOFF CYLINDER (BIT #15) 
1913 
1914 
1915 s*ECC POSITION REGISTER (RHEC1) (#16) 
oie ;*EACH BIT IS CALLED BY BIT NUMBER 
1918 
1919 
1920 
1921 ECC PATTERN REGISTER (RHEC2) (#17) 

1922 ;*EACH BIT IS CALLED BY BIT NUMBER 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 





0 


P11 


002276 


002300 


002336 


0023540 
002342 


002344 
002346 
002350 


176722 
176702 
176704 
176710 


176700 


176720 


176750 
176752 


RP04/5/6 Ad: CTL 
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R} 
703 
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REGISTER ADDRESSES 
~SBTTL REGISTER ADDRESSES 


>*RP04/5/6 DISK 1/0 REGISTER LOCATED IN THE RH11 CONTROLLER 


RHDB: 176722 ;DATA BUFFER 

RHWC: 176702 ;WORD COUNT 

RHBA: 176704 ;BUS ADDRESS 

RHCS2: 176710 ;CONTROL AND STATUS 2 


;*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) 


RHCS1: 176700 ;CONTROL AND STATUS 1 
RHER1: 176714 TERROR #1 

RHDST: 176706 : DESIRED SECTOR/TRACK ADDRESS 
RHER2: 176740 SERROR #2 

RHOF: 176732 ; OFFSET 

RHCA: 176734 ;DESIRED CYLINDER ADDRESS 
RHER3: 176742 ;ERROR #3 

RHAS: 176716 s;ATTENTION SUMMARY 


RHMR : 176724 ;MAINTAINABILITY 
RHDS1: 176712 DRIVE STATUS 
RHDT: 176726 DRIVE TYPE 


RHSN: 176730 ;SERIAL NUMBER 

RHEC1: 176744 3ECC POSITION 

RHEC2: 176746 sECC PATTERN 

RHCC: 176736 sCURRENT CYLINDER ADDRESS 
RHLA: 176720 3; LOOK -AHEAD 


:*ADDITIONAL 1/0 REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 
RHBAE: 176750 ;BUS ADDRESS EXTENSION REGISTER 
RHCS3: 176752 ;CONTROL AND STATUS REGISTER #3 


*P-CLOCK (KW11-P) 1/0 REGISTERS 


PCLCSR: 172540 :CONTROL AND STATUS REGISTER 
PCLBUF: 172542 ;COUNT SET BUFFER 
PCLCTR: 172544 ; COUNTER 


SEQ 0040 


002352 


002360 


002362 


002420 


28-MAR-79 


000000 
000000 
000000 
000000 


000000 


000000 
000000 


DO, RP04/5/6 Aa: CTLRI 
P11 09:03 


C 4 
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REGISTER ADDRESSES SEQ 0041 


s*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SNAPSHOTS 
;*ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 


;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
;*FOR THE TIME JUST AFTER THE ‘ERROR’ ERROR COMMAND 


peeeeeereeeerereeteerereeeterereeeerereeeeeeeteAeeeReAeeeeeA eee 
eTHIS ASSUMES THAT A REGISTER SNAPSHOT HAS BEEN TAKEN WHICH IS NOT 
7*ALWAYS THE CASE = IF QUESTIONABLE CONTENTS APPEAR IN THE REGISTER 
:*PRINTOUTS, CHECK THE INLINE TEST CODE TO SEE IF THE REGISTER SNAPSHOT 
;*REFLECTS THE CURRENT STATE OF THE MACHINE 


sy, eeeereeeeeeeeeerereeeereeeeeeeeeteeteetenKeeteeeetKeKeeeereeeRs 


DB: 0 ;DATA BUFFER 

wC: 0 ;WORD COUNT 

BA: 0 ;BUS ADDRESS 

CS2: 0 ;CONTROL AND STATUS 2 
CS1: 0 sCONTROL AND STATUS 1 
ER1: 0 sERROR #1 

DST: 0 sDESIRED SECTOR/TRACK ADDRESS 
ER2: 0 sERROR #2 

OF: 0 s OFFSET 

CA: 0 :DESIRED CYLINDER ADDRESS 
ER3: 0 ERROR a3 

AS: 0 ; ATTENTION SUMMARY 

MR: 0 ;MAINTAINABILITY 

DS1: 0 DRIVE STATUS 

DT: 0 sDRIVE TYPE 

SN: 0 ;SERIAL NUMBER 

EC1: 0 sECC POSITION 

EC2: 0 ;ECC PATTERN 

CC: 0 ;CURRENT CYLINDER ADDRESS 
LA: 0 ; LOOK-AHEAD 


0 


002422 


002464 


002470 
003534 


000000 


000000 


000422 
000422 


wheal © 44h: CTLRI 
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MACY11 30A(1052 
REGISTE 


) 25-MAY- 
R ADDRESSES 


ny 


;*FUNCTION EQUATES 
;*TABLE OF FUNCTIONS FOR RHCS1 THEN ‘'GO"’ BIT HAS TO BE SET 


FUTABL: 
NOPERA: 


READIN: 
ILLEGL: 


;*DATA 


WRF ROM: 
REINTO: 


AVM SMO 
ONoOoONo 


BUFFERS FOR READ/WRITE 


-BLKW 
~-BLKW 


274. 
274. 


dD 4 
10:30 PAGE 435 


;NO OPERATION 

;UNLOAD (STAND BY) 
;RECALIBRATE 

;DORIVE CLEAR 

; RELEASE a OPERATION) 


; SEARCH COMMAN 

;WRITE CHECK DATA 

WRITE whe HEADER AND DATA 
WRITE DAT 

WRITE HEADER AND DATA (FORMAT) 


;READ DATA 

;READ HEADER AND DATA 

; SEEK COMMAND 

;OF FSET COMMAND 

;RETURNTO CENTERLINE 

;PACK ACKNOWLEDGE 

;READ IN 

;COMPUTED ILLEGAL FUNCTION 


;WRITE FROM THIS BUFFER 
;READ INTO THIS BUFFER 


SEQ 0042 


E 4 
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CZRJ1ID.P11 28-MAR-79 09:03 REGISTER ADDRESSES SEQ 0043 

2048 

2049 

e029 ;*RESERVED CORE LOCATIONS 

2052 004600 000000 REGADR: 0 ;SAVE REGISTER ADDRESS HERE 

2053 004602 000000 ERWORD: 0 ;SAVE ERROR WORD NUMBER HERE 

2054 004604 000000 TSTNM: 0 ; TEST NUMBER 

2055 004606 000000 RP4VEC: 0 ;CONTAINS ADDRESS OF LOCATION 

2056 ;WHERE AN RPO4 INTERRUPT IS TO VECTOR 10 

2057 ;THIS MUST BE MOVED INTO ‘RPVEC’ TO BE 

soon sEFFECTIVE. 

2060 004610 000000 OFSTVL: 0 ;OFFSET VALUE USED IN OFFSET TEST 

a 

2063 004612 000024 SAVERE: .BLKW 20. ;BLOCK TO SAVE REGISTERS FOR PRETEST 

2064 ;HARDWARE REGISTER SNAPSHOTS - THESE 

2065 ;ARE USUALLY THEN CHANGED TO REFLECT 

2066 EXPECTED CONDITIONS AFTER THE TEST 

2067 004662 000000 FINALA: 0 SAVE LOOK AHEAD REGISTER AT END OF OPERATION 

te 004664 000000 FINACC: 0 ;SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION 
6 

2070 

2071 ;*TABLE FOR ATTENTION BITS 

sore ;*ATTENTION TABLE 

2074 004666 001 002 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 

2075 004671 010 020 040 

2076 004674 100 200 


F 4 
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CZRJ1D.P11 28-MAR-79 09:03 REGISTER ADDRESSES SEQ 0044 
2078 

2079 

SoBt s*FLAGS AND INTERNAL PROGRAM CONTROL WORDS 

2082 004676 000010 UNITS: .BLKW 8. sTHIS IS FILLED WITH -1 

2083 004716 000000 UNIT: . WORD 0 sUNIT UNDER TEST 

2084 004720 000000 NOUNIT: .WORD 0 sNUMBER OF UNITS PRESENT 

2085 USED TO KEEP TRACK OF UNIT UNDER TEST 
2086 004722 000000 NUNIT: .WORD 0 USED TO DETERMIN IF THERE ARE MORE 
2087 s THAN ONE UNIT 

2088 004724 000000 NOPUSH: 0 sALL ONES INDICATE NONE OF THE OPERATOR 
2089 s INTERVENTION TESTS WILL BE PERFORMED 
2090 004726 000000 SELECT: .wORD 0 ALL ONES INDICATE UNIT TO BE SELECTED 
2691 004730 000000 UNITSL: .WORD 0 ;UNIT NO. SELECTED 

2092 004732 000000 UBUSB: 0 ;1f ZERO UNIBUS PRESENT 

2093 :1f ONES NO UNIBUS B 

2094 004734 000000 ERFLGS: 0 ERROR FLAG 

2095 004736 000000 FIRST: 0 :1F ZERO WILL TYPE HEADER 

cove :1F ONES WILL NOT TYPE HEADER 

2098 004740 000000 ATTENT: 0 ATTENTION BIT FOR PRESENT UNIT 

on 004742 000000 TOTALAT:0 ; TOTAL ATTENTION BITS 

2101 004744 000000 RP06: 0 :RPO6 DEVICE TYPE FLAG LOCATION 

2102 004746 000000 RPOS: 0 ;MEMOREX RPO4 DEVICE TYPE FLAG 

2103 004750 000000 RH70: 0 :1F = 1, PROGRAM 1S RUNNING ON RWPO4 SYSTEM 
2104 :1F = 0, PROGRAM IS RUNNING ON RJPO4 
2105 004752 000000 INUNIT: 0 INITIAL UNIT NO. = USED DURING 

gioe CHECKING ALL ADDRESS PLUG ADDRESSES 
2108 

2109 

ait 

2112 004754 000000 T™PO: .WORD 0 ; TEMP STORAGE 

2113 004756 000000 TMP1: . WORD 0 

2114 004760 000000 ™™P4: .WORD 0 : TEMP STORAGE 


G 4 
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CZRJID 

CZRJID.P11 28-MAR-79 09:03 SEQ 0045 
2115 .SBTITL 
2116 -SBITL **DIAGNOSTIC CODEr* 
2117 .SBTTL 
2118 
2119 
2120 .SBTTL SETUP TESTS 
5153 
2123 004762 012737 177777 004724 BEGINI: MOV #-1,a#NOPUSH ; JUMP OVER OPERATOR REQUIRED TESTS 
2124 004770 005037 004726 CLR a#SELECT ;D0 NOT SELECT UNIT 
2125 004774 000412 6BR START 
2126 004776 012737 177777 004726 BEGIN2: MOV #-1,aa#SELECT :SELECT UNIT 
2127 005004 005037 004724 CLR @#NOPUSH 300 NOT JUMP OVER ANY TEST 
2128 005010 000404 BR START 
2129 005012 005037 004726 BEGIN: CLR a#SELECT :D0 NOT SELECT UNIT 
2130 005016 005037 004724 CLR @#NOPUSH :D0 NOT JUMP OVER ANY OPERATOR 
sigs s INTERVENTION TESTS = NORMAL RUN 
2133 005022 START: 
2134 005022 000005 RESET 
2135 -SBTTL INITIALIZE THE COMMON TAGS 
2136 ::CLEAR THE COMMON TAGS ($CMTAG) AREA 
2137 005024 012706 001100 MOV #SCMTAG,RO si; FIRST LOCATION TO BE CLEARED 
2138 005030 005026 CLR (R6)+ :;CLEAR MEMORY LOCATION 
2139 005032 022706 001140 CMP #SWR,R6 ;;DONE? 
2140 005036 001374 BNE -6 :;LOOP BACK IF NO 
2141 005040 012706 001000 MOV #STACK,SP ::SETUP THE STACK POINTER 
2142 >; INITIALIZE A FEW VECTORS 
2143 005044 012737 044776 000020 MOV #SSCOPE ,a#IOTVEC $3381 VECTOR FOR SCOPE ROUTINE 
2144 005052 012737 000340 000022 MOV #340, aw iOTVEC+2 pi LEVEL 7 
2145 005060 012737 047174 000030 MOV #SERROR ,AMEMTVEC cueRt VECTOR FOR ERROR ROUTINE 
2146 005066 012737 000340 000032 MOV #340, aMEMTVEC+2 s;LEVEL 7 
2147 005074 012737 050720 000034 MOV #STRAP ,a#TRAPVEC co VECTOR FOR TRAP CALLS 
2148 005102 012737 000340 000036 MOV #340, as TRAPVEC+2; LEVEL 7 
2149 005110 012737 051004 000024 MOV #SPURDN, a#PWRVEC : POWER FAILURE VECTOR 
2150 005116 012737 000340 000026 MOV #340, a#PWRVEC+2 s;LEVEL 7 
2151 005124 005037 001212 CLR STIMES s: INITIALIZE NUMBER OF ITERATIONS 
2152 005130 005037 001214 CLR SESCAPE >: CLEAR THE ESCAPE ON ERROR ADDRESS 
2153 005134 112737 000001 001115 MOVB #1, SERMAX >: ALLOW ONE ERROR PER TEST 
2154 005142 012737 005142 001106 MOV #., SLPADR ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 
2155 005150 012737 005150 001110 MOV #., SLPERR :SETUP THE ERROR LOOP ADDRESS 
2156 sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT 1S 
2157 EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
2158 005156 013746 000004 MOV Q#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
2159 005162 012737 005216 000004 MOV #64$, OHERRVEC + SET UP ERROR VECTOR 
2160 005170 012737 177570 001140 MOV #DSWR, SWR :SETUP FOR A HARDWARE SWICH REGISTER 
2161 005176 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
2162 005204 022777 177777 173726 CMP #-) -aswR >: TRY TO REFERENCE HARDWARE SwR 
2163 005212 001012 BNE 66$ ::BRANCH IF NO TIMEOUT TRAP OCCURRED 
2164 ::AND THE HARDWARE SWR IS NOT = -1 
2165 005214 000403 BR 65$ ::BRANCH IF NO TIMEOUT 
2166 005216 012716 005224 643: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
2167 005222 000002 RTI 
2168 0052246 012737 000176 001140 65$: MOV #SWREG, SWR :;POINT TO SOFTWARE SwR 
2169 005232 012737 000174 001142 MOV #DISPREG,DISPLAY 
2170 005240 012637 000004 66$: MOV (SP)*+,QM#ERRVEC ;;RESTORE ERROR VECTOR 
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005244 
005252 


005270 


005274 


005310 


005314 
005314 
005320 


005414 
005414 
005420 


005504 


005504 
005510 


005562 
005562 
005566 


005656 
005656 
005662 


005756 


005756 
005762 


006040 
006040 
006044 


006112 
006112 
006120 
006124 


006126 
006134 
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000137 


104401 
000435 


104401 
000431 


104401 
000424 


104401 
000433 


104401 
000435 


104401 
000426 


104401 
000422 


012737 


005737 


001005 


09:03 


000000 177776 
000200 000036 
002266 
044734 
000340 


045734 
004736 


006112 


005322 


005422 


005512 


005570 


005664 


005764 


006046 


177777 004736 


000042 
001140 000176 
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Fh tag 


SND1: 
. SBTTL 
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ZE THE COMMON TAGS SEQ 0046 


MOV #0,P ;SET PROCESSOR = 10 0 

MOV 4260° S aNTRAPVEC #2; TRAP PRIORITY = 

MOV @#RPVEC,RO ;GET RP VECTOR ADDRESS 

MOV WRPVECT,(RO)*  ;THIS IS FOR UNTIMELY INTERRUPTS 

MOV #340, (RO) :DRIVE INTERRUPT SERVICE ROUTINE 
:PRIORITY = 7 

JSR PC ,a#STKINT ; INITIALIZE THE TTY KEYBOARD 

TST OaFIRST ;1S THIS FIRST TIME ROUND ? 

BNE 1$ ;DON'T GIVE HEADER IF NOT 

BR 2$ ;HEADER 1ST TIME THROUGH 

JMP @#SND1 NO HEADER 

TYPE + 44+ ASCIZ STRING 

BR 67$ ;GET OVER THE ASCIZ 

-ASCIZ £15><12>2RPO4/5/6° FUNCTIONAL CONTROLLER TEST - PART I = CZRJI-D? 

TYPE 70% 23 TYPE ASCIZ STRING 

BR 69% ;GET OVER THE ASCIZ 

LASCIZ <15><12>/ALL DCL'S MUST BE LOCKED ON THE CORRECT PORT/<15><12> 

TYPE Mig 23 TYPE ASCIZ STRING 

BR 71$ GET OVER THE ASCI2Z 

LASCIZ <15><12>/PROGRAMMABLE DRIVES WILL NOT BE USED/ 

TYPE 74% ie TYPE ASCIZ STRING 


OVER THE ASCIZ 


BR 73% ;GET 
LASCIZ <15><12>/1F CHANGE 1S REQUIRED ON PORT SWITCH, THEN A CYCLE/ 


TYPE . 76% is TYPE ASCIZ STRING 
BR 75$ GET OVER THE ASCIZ 
eASCIZ = <15><12>/UP seauiice 1S REQ FOR STROBING THE PORT SELECT FLOP/<15><12> 


TYPE , 78% 23 TYPE ASCIZ STRING 
BR 77$ GET OVER THE ASCI2Z 
VASCIZ <15><12>/ALL DCL'S NOT UNDER TEST MUST BE SwITCHED/ 


TYPE .80$ ie TYPE ASCIZ STRING 
BR 79$ ;GET OVER THE ASCIZ 
LASCIZ <15><12>/0FF, OR LOCKED ON THE OTHER PORT/ 


MOV #-1,Q#F RST ;NEXT TIME DO NOT GIVE HEADER 
*. VALUE FOR SOFTWARE ert REGISTER 

TST aa42 ARE WE RUNNING UNDER XXDP/ACT? 
BNE 64% :BRANCH IF YES 

CMP SWR,#SWREG 1 SOF TWARE SWITCH REG SELECTED? 
BNE 65% BRANCH IF NO 


1 
0, RPOG/5/6 FCTNL CTLR1 MACY11 30A(1052) 25-MAY-79 10:30 PAGE 48 
P11 2B-MAR-79 09:03 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0047 
006136 104406 GTSWR £3GET SOFT-SWR SETTINGS 
006140 000403 BR 65$ 
006142 112737 000001 001134 64%:  MOVB  #1,$AUTOB :;SET AUTO-MODE INDICATOR 
006150 65$: 
006150 032777 010000 172762 RH7OCK: BIT #SW12,aSWR :LOOK TO SEE IF USING RH70 
006156 001403 BEQ zs ‘IF Swi2 = 0, SKIP NEXT 
006160 012737 000001 004750 = MOV #1, a#RH70 ‘IF Swi2 = 1. CU IS AN RH70 
MTTITITITITITITITIIITIII TIT LTLLTTLLTLLLL 
:*#]S THERE A P=CLOCK (KW11-P) ON THE SYSTEM 
:#]F SO MAKE 'WAT'’’ TRAPS GO TO 'WAIT.P® 
:#]F SO MAKE RPOG INTERRUPTS GO TO "TIME 1° 
te]F NOT MAKE 'WAT' TRAPS GO TO ‘WAIT.T" 
:#]F NOT MAKE RPO INTERRUPTS GO TO ‘TIME 2° 
:*THE NEXT LINE 1S TO BE ADDED LATER 
‘*AND THE JUMP AND NOP REMOVED 
‘*FOR NOW NO CLOCK WILL BE USED 
: MOV aw1S,a#ERRVEC SET TIME-OUT VECTOR 
: snp avis :D0 NOT USE CLOCK 
: N 
: TST awPCLCSR SREFERENCE P=CLOCK STATUS REGISTER 
: “ADDRESS = 172540 
: MoV #WALT.P,a#S$TRPAD*+20 ; THERE IS A P-CLOCK 
: MOV WTIME1,Q#RPGVEC ; THERE IS A P CLOCK SO 
: ‘VECTOR TO TIME) 
; BR 2$ 
"1$: MOV WWAIT.1,Q#$TRPAD+20 ; THERE IS NO P=CLOCK 
sy eeteeeererereereeeereeereeeereereneeeeeKanaateeeeeeeeeeeeeeeee 
006166 012737 041736 004606 MOV #TIME2, Q#RPGVEC ;RPO04/5/6 INTERRUPTS GO TO ‘TIME 2° 
006174 012737. 177777 047342 2$: MOV #-1,asPRITEM | :CLEAR PREVIOUS ITEM NUMBER 
006202 005737 004726 1ST aNSELECT sWAS IT A 200 START 
006206 001442 BEQ $11 2 BRANCH IF STARTING FROM 200 
006210 104401 006216 TYPE 658 ;:1YPE ASCIZ STRING 
006214 000424 BR 64 “GET OVER THE ASCIZ 
::65$: .ASCIZ <15><12>/SELECT UNIT NUMBER TO BE TESTED 2? /<15><12> 
006266 648: 
006266 104412 RDOCT 
006270 042716 177770 BIC #177770,(SP)  ;ONLY KEEP LAST 3 BITS 
006274 011637 004716 MOV (SP) ,a#UNIT “SAVE UNIT TO BE TESTED 
006300 012637 004730 MOV (SP)*,@#UNITSL :SAVE UNIT TO BE TESTED 
006304 001403 BEO S11; BRANCH IF STARTING FROM 200 
006306 013737 004730 004716 HOV QSUNITSL.a#UNIT ;SET UNIT NUMBER 
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2283 
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33658: .ASCIZ o15><12>/ RH11 CONTROLLER / 
006642 


CZRJID.P 28-MAR-79 09:03 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0049 
22 
2285 ppeeeeeeeereereeeeererereereetereeetetreneeKeeeTAteeeKee eee Tee 
scee s*TEST 1 REFERENCE EACH REGISTER 
see ;* REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
2290 p_eeeeeeeeeeeererreererreeeeeeereretrereeeeeeeA Ke Kee eee Tee 
2291 006314 000004 TST1: SCOPE 
2292 006316 012737 000001 001212 MOV AG ght 3;00 1 ITERATION 
2293 606324 012737 000001 004604 MOV #2-1,a4TSTNM s THIS SAVES TEST NUMBER 
2294 006332 012706 001000 MOV WSTA CK SP :SET UP STACK POINTER 
2295 006336 012737 047204 000030 MOV #REGSAI -@MEMTVECZ ERROR VECTOR SO THAT 
2296 sNO REGISTERS ARE SAVED 
5344 006344 012737 006372 000004 MOV #2$,Q#ERRVEC ;SET UP FOR BUS TIMEOUT 
2299 006352 012700 000024 MOV #24,R0 s THERE ARE 24 REG TO TEST 
2300 006356 012701 002270 MOV #RHDB,R1 :R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
2301 006362 013102 1$: MOV a(R1)+,R2 ;READ HARDWARE REG. 
2302 006364 005300 DEC RO ;COUNT DOWN 
2303 006366 001375 BNE 1$ sBRANCH IF 24 ora — 
2304 006370 000454 BR 3$ ;BRANCH IF 24 D 
2305 006372 012737 000006 000004 28: MOV tpg hf awERRVEC ;RESTORE TRAP CATCHER 
2306 006400 022626 CMP (SP)¢, (SP) + CLEAN N STACK 
2307 006402 016137 177776 001200 MOV -2(R1),$TMP1 s;STORE FAILING REG ADDR 
2308 006410 104007 ERROR 7 REGISTER NON EXISTANT 
2309 006412 032777 020000 172520 BIT #SWid,aSwR s INHIBIT ERROR PRINTOUT ? 
sate 006420 001036 BNE 4% ‘BRANCH IF YES 
2312 006422 104401 006430 TYPE ety dy ASC1Z paset 
2313 006426 000427 BR 3:GET OVER THE ASCIZ 
2314 33658: .ASCIZ of5>< 129/10 CHANGE BASE ADDRESS RESTART AT ADDRESS / 
sai? 006506 64$: 
2317 006506 012746 000204 MOV #ADDMOD ,-(SP) :GET. READY TO TYPE STARTING [ADDRESS 
2318 OF ' "CHANGE OF BASE ADDRESS*’ ROUTINE 
2319 006512 104402 TYPOC 
2320 006514 000000 HALT ;STOP TO FORCE THE CORRECT RESTART 
ses) 006516 000137 041052 4$: JMP aavseor :G0 TO END OF PROGRAM ------------- > 
2323 006522 012737 006602 000004 3$: MOV #TRP,aM4 s INITIALIZE VECTOR 
2324 006530 005037 004750 CLR RH70 :INIT RH INDICATOR ++ C.W 
2325 006534 005777 173600 TST QRHBAE ADDRESS RPBAE (RH11/RH70?) 
2326 006540 005237 004750 INC RH70 :FOUND AN RH70-SET MASK 
2327 006544 104401 006552 TYPE re i 3 TYPE ASCIZ STRING 
2328 006550 0004135 BR ;GET OVER THE ASCIZ 
2329 37678: .ASCIZ OOS 3<12>/RH70 CONTROLLER / 
2 006600 66$: 
2 006600 000420 BR RIN ;AND GET OUT 
2 006602 005726 TRP: TST (SP)+ 
2 006604 005726 TST (SP)¢ iw THE STACK 
2 006606 104401 006614 TYPE 05% s TYPE ASCIZ STRING 
3 000413 BR 64% :GET OVER THE ASCI2Z 
2 
2 
2 


rd Er rt Lt tt tt 
BVSSSeSrss lS 
OWN WF wr — 

> 

— 

~m 


64%: 
006642 012737 047174 000030 RIN: MOV #SERROR ,AMEMTVEC; RESTORE ERROR VECTOR 
7$0 THAT REGISTERS ARE SAVED 
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cay 006650 012737 000006 000004 MOV WERRVEC*2 ,QWERRVEC ; RESTORE TRAP CATCHER 
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CZRJ1D.P11 28-MAR-79 09:03 REFERENCE EACH REGISTER SEQ 0051 
2342 
2343 
2344 pp eeeerererereeereerereeeeeeerenereeereeeeeKeeneeeAeANeeAe AAT 
toed s*TEST 2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
sure 3 CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES INTO IT 
2349 syeetereereeeeeeeeeeeeereeete reer eee eee eeeee eRe eee 
2350 006656 000004 TST2: SCOPE 
2351 006660 012737 000001 001212 MOV #1,STIMES :;D0 1 ITERATION 
2352 006666 012706 001000 MOV #STACK,SP :SET STACK POINTER 
Se 006672 012737 000002 004604 MOV #3-1,a¢TSTNM sTHIS SAVES TEST NUMBER 
2355 006700 013701 002316 MOV @#RHAS RI :R1 HAS ADDRESS OF RHAS 
2356 006704 012711 177777 MOV #-1,aR1 THIS WRITES ALL ONES INTO RHAS 
2357 006710 105711 1STB ari : TEST RHAS FOR ALL O'S 
2358 006712 001407 BEQ TST3 : BRANCH IF GOOD 
2359 006714 011137 001126 MOV aR1,a#$BDDAT :BAD DATA 
2360 006720 005037 001124 LLR a#SGDDAT :GOOD DATA 
it 006724 010137 004600 MOV R1,a#REGADR sFAILING REG. (RHAS) 
2363 006730 104005 ERROR 5 :RHAS DOES NOT CLEAR BY WRITING 
2364 :ALL ONES INTO IT 
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ute, 


ps, eteeeeererererereeerrereeeeeeereeAteeeeeeeeteeeeeteeteeeeeeeeeee 


s*TEST 3 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


THE NUMBER OF DRIVES PRESENT IS FOUND 
BY MOVING ALL ONES INTO RHER1 WITH UNIT NUMBER 
IN RHCS2 INCREMENTED FROM ZERO TO SEVEN 


THE BITS SET IN RHAS SHOULD GIVE DRIVES PRESENT 


THE DRIVE TYPE IS CHECKED TO BE AN RPO4/RPO6 AND THEN 
UNITS PRESENT ARE STORED IN A TABLE CALLED ‘UNITS’ 


PECTIC t iii iii tii iii iiiiiiiiiiiiiiiiiiiiiittt. 
000004 TST3: 
000001 001212 #1,STIMES ;;D0 1 ITERATION 
000003 004604 Ov 44-1 ,a#TSTNM ; THIS SAVES TEST NUMBER 
:START WITH AN INIT 
045734 R PC ,a#STKINT s INITIALIZE TTY KEYBOARD 


020000 172154 #SW13,aSWR ; INHIBIT ERROR TYPEQUT? 
4$ : BRANCH IF YES 
006774 vty iiTYPE ASCIZ STRING 
R 648% T OVER THE ASCIZ 
ci bocgnctSactan ii peaioe AT RHAS = DRIVES PRESENT / 


002316 ‘ @#RHAS RI :R1 HAS ADDR. OF RHAS 
002276 QNRHCSZ .R2 [R2 HAS ADDR. OF RHCS2 


:CLEAR RHCS2 
000010 #8. ,RO ; COUNT 
002302 A#RHERI RG ;R4 HAS ADDR. OF RHERI 
177777 #-1,aR4 ;MOVE ERRORS INTO RHER1 
aR2 ; INCREMENT UNIT NO. 
RO :COUNT DOWN DRIVE COUNTER 
1$ ;D0 NEXT UNIT IF 8 NOT DONE 


004742 OR1 ,a#TOTALAT : SAVE TOTAL ATTENTION 
USED IN DRIVE ane TEST 
004743 @#TOTALAT+1 CLEAR UPPER BYTE 
ar TEST *RHAS' FOR ANY DRIVES PRESENT 
23 NONE RESPONDING - TYPE THE MESSAGE 
007464 XE2 :SOME THERE = GO FILL “'UNITS"’ TABLE 


032777 020000 172014 : #SW13,aSwR ; INHIBIT ERROR TYPE sy 

001402 3$ :‘"NO DRIVES’ MESSAGE IF Ni 

000137 010066 SELTST CHECK FOR SELECTED UNIT START AND LOAD 
UNITS’ TABLE WITH SELECTED ONE IF SO 


3$: 
104401 007140 Pry 2a TYPE ASCIZ STRING 
000420 BR ;GET OVER THE ASCI2Z 
7678: . eiioctanses DRIVES PRESENT = RHAS = 0/ 
66$: 
104401 007206 69% ssi yee ASCIZ STRING 
000430 BR 68% GET OVER THE ASCI2Z 
336098: .ASCI2 <15><12>/WRITING. ONES INTO RHER] FOR ALL UNIT NUMBERS/ 
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2422 007266 688: 
2423 007266 104401 0907274 TIPE 71$ si TYPE ASCIZ STRING 
2424 007272 000430 BR 0$ GET OVER THE ASCIZ 
2425 ::71$: .ASCIZ <15><12>/D0ES NOT SET ANY BIT IN RHAS SO ABORT PROGRAM/ 
2426 007354 708: 
2427 007354 104401 007362 TYPE =, 738 ;: TYPE ASCIZ STRING 
2428 007360 000437 BR 72$ GET OVER THE ASCIZ 
2429 ::73$: .ASCIZ <15><12>/T0 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES 13, 8, 1, & O/ 
2430 007460 728: 
2432 007460 000137 041052 JMP av SEoP 560 OUT ---------------- 222-22 - =o =o =e > 
2434 
2435 
2436 :*SET UP UNITS TABLE 
2437 
2438 007464 XE2: 
2439 007464 012700 000010 2$: MOV #8. ,RO : COUNTER 
2440 007470 012703 004676 MOV #UNITS,R3 :POINTER ° 
2441 007474 012723 177777 38: MOV #-1,(R3)4 =PRESET BLOCK TO ALL ONES 
2442 007500 005300 DEC RO COUNT 
2443 007502 001374 BNE 3$ :BRANCH IF 8 NOT DONE 
2444 007504 012703 004676 MOV #UNITS,R3 POINTER 
2445 007510 005005 CLR R5 S INITIALIZE UNIT NO. TO 0 
2446 007512 005037 004720 CLR @#NOUNIT :NO. OF UNITS PRESENT 
2447 007516 012700 000010 MOV #8. ,R0 COUNTER 
2448 007522 011137 001176 MOV Ri, avSTMPO : TEMPORARY STORAGE 
2449 007526 006037 001176 4$: ROR avSTMPO :SET CARRY IF ONE IN 0 BIT 
2450 007532 103135 BCC 5$ :CHECK NEXT UNIT IF ONE NOT IN BIT 0 
2452 007534 010577 172536 MOV R5,aRHCS2 : INSERT UNIT NUMBER INTO RHCS2 UA BITS 
2453 007540 022777 024020 172556 CMP #24020,aRHDT 1S THIS A DUAL PORT RPO4 ? 
2454 007546 001425 BEQ 7$ :TYPE THE UNIT NO. IF YES 
2455 007550 022777 020020 172546 CMP #20020,aRHDT :1S THIS A SINGLE PORT RPO4 ? 
2456 007556 001421 BEQ 7$ :TYPE UNIT NO. IF YES 
4 
2458 PERRET AAT ATTA AAT AAT TTT TATA AAA ATA AAA ARATE e 
2459 007560 022777 024021 172536 CMP #24021,@RHDT § ;DUAL PORT RPOS ? 
2460 007566 001415 BEQ 7$ [TYPE UNIT NO. IF SO 
2461 007570 022777 020021 172526 CMP #20021,@RHDT SINGLE PORT RPOS ? 
2462 007576 001411 BEQ 7$ :TYPE UNIT NO. IF SO 
46 
2464 007600 022777 024022 172516 CMP #24022,@RHDT 31S THIS A DUAL PORT RPO6 ? 
2465 007606 001405 BEQ :TYPE THE UNIT NO. IF SO 
2466 007610 022777 020022 172506 CMP #20022,@RHDT 31S THIS A SINGLE PORT RPO6 ? 
2467 007616 001401 BEQ 7$ :TYPE UNIT NO. IF SO 
2468 007620 000414 BR 9$ 
2469 007622 032777 001000 172472 7$: BIT WB1T09, @RHDS1 ;1S THE DRIVE PROGRAMMABLE? 
2470 007630 001001 BNE AS :BRANCH IF YES 
2471 007632 000466 he Oe 6$ 
2472 007634 104401 001223 8$: TYPE  ,$CRLF 
2473 007640 010546 MOV R5, =(SP) 
2474 007642 104405 TYPDS :TYPE THE DRIVE NUMBER 
2475 007644 104401 066766 TYPE —_, NOUSE “REPORT THIS DRIVE WILL NOT BE USED(DRIVE MUST BE LOCKED 
2476 007650 000466 BR 5$ 
2477 007652 9$: 
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CZRJID.P11 28-MAR- TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 SEQ 0054 
2478 ppeeeeeeerererererereterrereeeereteretteeeeereteKeneneteteeeAATe ee 
2479 
2480 
2481 :*NO...1T'S NOT AN RPOG/RPOS/RPO6 DEVICE SO TYPE 
ores >*OUT THE DEVICE TYPE 
2484 007652 104401 007660 TYPE 058 : TYPE ASCIZ STRING 
2485 007656 000410 BR 64% GET OVER THE ASCIZ 
2486 ::65$: .ASCIZ <15><12>/UNIT NUMBER / 

2487 0077C0 64$: 
2488 007700 010546 MOV R5,-(SP) :GET READY TO TYPE UNIT NUMBER 
2489 007702 104405 TYPDS 
2490 007704 104401 007712 TYPE 67% si TYPE ASCIZ STRING 
2491 007710 000406 BR 66$ ::GET OVER THE ASCIZ 
2492 3367$: .ASCIZ /, RHDT = / 
2493 007726 66$: 
2494 007726 017746 172372 MOV @RHDT,-(SP) :GET READY TO TYPE RHDT 
2495 007732 104402 TYPOC 
2496 007734 104401 007742 TYPE ,69$ i TYPE ASCIZ STRING 
2497 007740 000422 BR 68% :GET OVER THE ASCIZ 
2498 ::69$: .ASCIZ 2? - NOT AN RPOG/RPOS/RPO6 DEVICE !!? 
2499 010006 68$: 
soo 010006 000407 BR 5$ :NO RPO4/RPOS/RPO6 FOUND SO TEST NEXT UNIT 
2502 010010 010523 6$: MOV RS,(R3)+ LOAD TABLE POSITION AND INCR IT 
2503 010012 104401 001223 TYPE »SCRLF ' 
2504 010016 010546 MOV R5,-(SP) :PUT DRIVE "0. ON STACK 
2505 010020 104405 TYPDS TYPE DRIVE N 
$e58 010022 005237 004720 INC a#NOUNIT :INCR THE SOTAL NO. OF UNITS 
2508 010026 005205 5$: INC R5 :"RHCS2" UNIT ADDRESS 
2509 010030 005300 DEC RO DRIVE COUNTER DOWN ONE 
219 010032 001235 BNE 4$ TEST AND DO NEXT UNIT IF 8 NOT DONE 
2512 010034 005737 004720 TST a#NOUNIT :1F THERE ARE ANY UNITS... 
2513 010040 001002 BNE 10$ > CONT INUE 
2514 010042 000137 041052 JMP aa SEOP :ELSE GO TO END OF PASS 
Teh 010046 10$: 
2517 010046 013737 004676 004716 MOV Q#UNITS,@#UNIT ;=SET UNIT NO. TO FIRST ONE FOUND OR 0 
2518 010054 013737 004720 004722 MOV Q@#NOUNIT,@#NUNIT; SAVE NO. OF UNITS 
2519 010062 005337 004722 DEC aa#NUNIT :1F NUNIT = 0 THEN ONLY ONE UNIT 
33 s1— NUNIT > 0 THEN MORE THAN ONE UNIT 
2522 010066 005737 004726 SELTST: TST @ASELECT STARTING ADDRESS 200 
2523 010072 001403 BEQ TS14 SKIP NEXT IF STARTING FROM 200 
01 013737 004730 004716 MOV aFUNITSL. * aWUNIT CHANGE UNIT NUMBER TO SELECTED ONE 


2537 


0, 
PI 


005037 


005737 
001107 
012700 
122710 
001102 


005737 
001006 


012700 
005720 


022710 
001065 


104401 
000434 


104401 
000421 
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000001 
011044 
001000 
000004 


041524 


004740 
004716 
000041 
000011 


004726 


004676 


177777 


010212 


010310 
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001212 
001106 


004604 





TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 SEQ 0055 


* #errererererretrerereteeteerereeeeteeeeeeeaeeeereeeeeeeeeeeetereee 


s*TEST 4 TYPE SERIAL NUMBER AND DRIVE TYPE 
;* SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN ‘ATTENT’ 
;* TYPE UNIT UNDER TEST 
be READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
z* TYPE THEM OUT AND PROCEED 
= TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON 
= SWITCHES 0 THRU 7 AND RESTART 
sp eeeaereeeeeererrereereeeteteeeeeeeeeeeeeKeKeeKeeeeeeeeeAe eee ees 
TST4: SCOPE 
MOV #1,S$TIMES ;;D0 1 ITERATION 
MOV #1$,$LPAOR ;;SET SCOPE LOOP ADDRESS 
MOV WSTACK,SP sRESET STACK 
MOV #4 ,Q#TSTNM ;SAVE TEST NUMBER 
JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 
CLR Q#ATTENT ; CLEAR 
TST Q#UNIT 71S "UNIT O°’ NEXT IN THE UNITS TABLE ? 
BNE 9$ ;1f NOT TEST THIS UNIT 
MOV #41,R0 ;1F SO, CHECK THE LOAD MEDIA LOCATION 
CMPB #11,(RO) WAS IT AN RPO4/5/6 ? 
BNE 9% NO - GO AHEAD WITH TESTING UNIT #0 
TST @*#SELECT ;WAS UNIT #0 SELECTED ? 
;(1E. WAS IT A 210 START ?) 
BNE 12% :1F SO, CHANGE PACKS 


7 *INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
:*& DECREMENT THE ‘'NOUNITS'’ PRESENT (TO BE TESTED) 


MOV #UNITS, RO ;LOAD UNITS TABLE POINTER 
TST (RO)+ ;SELECT THE NEXT UNIT IN THE TABLE 
; (DOUBLE INCREMENT THE POINTER, R9) 
CMP #-1,(R0) :1S THERE ANOTHER TABLE ENTRY PRESENT ? 
BNE 11$ :1F SO, USE THE NEXT DRIVE & DEC “NOUNITS" 
:1F NOT, MUST USE DRIVE #0 & CHANGE PACK 
12$: 
TYPE ,65$ ii TYPE ASCIZ STRING 


BR 64% ;GET OVER THE ASCIZ 
37658: .ASCIZ <15><12>«15 ><12>/61 SMOUNT PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/ 


64%: 

TYPE 07% sate ASCIZ STRING 

BR 66% GET OVER THE ASCIZ 
3367$: .ASCI2Z Of S><12>/PRESS CONTINUE WHEN FINISHED/<15><12> 
66$: 
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000000 HALT 
000404 BR 9$ CONTINUE, USING SCRATCH PACK ON UNIT #0 


011037 004716 : MOV (RO) ,@#UNIT ;SET UP TO BE THE UNIT UNDER TEST 
005337 004720 DEC @#NOUNITS ;DECREMENT BECAUSE UNIT #0 WON'T BE TESTED 


013700 004716 : MOV @#UNIT,RO ;RO CONTAINS UNIT UNDER TEST 


spe eeeeeterereeeeeeeeeretereeererereeeeeeeeeeeeeeeeKee eee eee 
005037 004744 aaRP06 ;CLEAR RPO6 DEVICE TYPE FLAG 
171674 RO,@RHCS2 ;SET UP UNIT ADDRESSING 
024022 171714 #24022 ,aRHDT 3:18 1T A DUAL ee RPO6 ? 
2$ ;YES...SET THE FLAG 
020022 171704 #20022 ,aRHDT HIS IT A SINGLE PORT RP06 ? 
2$ YES...SET FLAG 
3$ SDON® 1 SET FLAG - CHECK FOR RPO4 
177777 =004744 t #-1,a#RP06 ;SET THE FLAG 
000416 8$ :DON’ T CHECK FOR RPO4, IT WAS RPO6 


005037 004746 : aa#RPOS ;CLEAR MEMOREX RPO4 DEVICE FLAG 
024021 171656 #24021, @RHDT 1S 17 A DUAL PORT MEMOREX RPO4 ? 
7$ ;YES..SET THE FLAG FOR ADDR PLUG TESTS 
020021 171646 #20021,@RHDT ;1S 11 A SINGLE PORT MEMOREX RPO4 ? 
7$ ;YES..SET THE FLAG FOR ADDR PLUG TESTS 
B 8$ ;DON'T SET FLAG = NOT MEMOREX DRIVE 
012737 177777 004746 7$: #-1,a#RPOS ;SET THE FLAG 


8$: ASSUME THE NEXT UNIT IS AN RPO4 


sy eeeeeerereeereeeereetitteeeee eee eee e eA A eee AAA eee K eee AAAS 


116037 004666 004740 ATABLE(RO) ,@#ATTENT ;SET APPROPRIATE ATTENTION BIT 

104401 010504 ,69$ eeTy YPE ASCIZ STRING 

000414 BR 68$ ;GET OVER THE ASCIZ 
<15><12>/TESTING DRIVE NUMBER/ 


013746 004716 Q@#UNIT,-(SP) sUNIT NO. TO STACK 
104405 :TYPE DRIVE NO. 
104401 010550 71% ii TYPE ASCIZ STRING 
000410 BR 70% ;GET OVER THE ASCIZ 
<15><12>/SERIAL NO. = / 


017746 171532 @RHSN,-(SP) 7;SAVE @RHSN FOR TYPEOUT 

104402 3:60 Het ny Bi Rm al DIGITS) 

104401 010604 73% ie TYPE ASCIZ STRING 

000410 BR 72% :GET eves THE Asc 
<15><12>/DRIVE TYPE = 


017746 171474 @RHDT,=(SP) >;SAVE @RHDT FOR TYPEOUT 
104402 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
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2634 ; TYPE OUT THE DRIVE TYPE IN ASCII] 
2635 
2636 
2637 ppeeeerereeeenerererererereereteteeeereeeeAeARee Ree eee Ree 
2638 010632 022777 024020 171464 CMP #24020, aRHDT ;DUAL PORT RPO4 ? 
2639 010640 001425 BEQ 4$ sTYPE ASCII MSG OUT 
2640 010642 022777 020020 171454 CMP #20020, aRHDT sSINGLE PORT RPO4 ? 
oo 010650 001421 BEQ 4% ; TYPE THE MESSAGE 
2643 010652 022777 024021 171444 CMP #24021 ,@RHDT :DUAL PORT RPOS ? 
2644 010660 001453 BEQ 6$ ; TYPE THE MESSAGE 
2645 010662 022777 020021 171434 CMP #20021, aRHDT :SINGLE PORT RPOS ? 
soe 010670 001447 BEQ 6$ ; TYPE THE MESSAGE 
2648 010672 022777 024022 171424 CMP #24022,aRHDT ;DUAL PORT RPO6 ? 
2649 010700 001424 BEQ 5$ ; TYPE THE MESSAGE 
2650 010702 022777 020022 171414 CMP #20022,aRHDT sSINGLE PORT RPO6 ? 
2651 010710 001420 BEQ 5$ ; TYPE THE MESSAGE 
2652 010712 000454 BR 1$ sDRIVE 1S NOT AN RPO4/RPOS/RPO6 
se3? :DON'T TYPE ASCII MESSAGE OUT 
2655 :-SHOULD NEVER HAPPEN AT THIS POINT 
2656 sUNLESS DRIVE GOT SICK WHILE TESTING 
2657 ;WAS IN PROGRESS 
2658 
2659 010714 4$: 
2660 010714 104401 010722 TYPE ,75$ 23 TYPE ASCIZ STRING 
2661 010720 000413 BR 74% ;GET OVER THE ASCIZ 
2662 33758: .ASCIZ <15><12>/DRIVE 18 AN RPO4/<15><12> 
2663 010750 74$: 
2664 010750 000435 BR 1$ ;SKIP NEXT MESSAGE 
2665 010752 5$: 
2666 010752 104401 010760 TYPE 7% qty ASCIZ STRING 
2667 010756 000413 BR 76% :GET OVER THE ASCIZ 
2668 3377$: .ASCI2Z a15><12>/DRIVE 1S AN RP06/<15><12> 
2669 011006 76$: 
2670 011006 000416 BR 1$ :SKIP NEXT MESSAGE 
2671 011010 6$: 
2672 011010 104401 011016 TYPE , 79% ie TYPE ASCIZ STRING 
2673 011014 000413 BR 78% :GET OVER THE ASCI2Z 
2674 3:79$: .ASCIZ <15><12>/DRIVE 1S AN RPOS/<15><12> 
2675 011044 78$: 
2676 speeeeeerrereereserereresereeereeerereeeeeeneneeseeeenesereneneese 
2677 
2678 
2679 
2680 
2681 011044 005777 171256 1$: TST @RHSN ;READ SERIAL NO. AND DRIVE TYPE 
2682 011050 005777 171250 TST @RHDT s THESE TWO ARE TO HELP SCOPE LOOPS 
2683 011054 017737 171246 002410 MOV Q@RHSN,Q4SN :SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
2684 011062 017737 171236 002406 MOV @RHDT,aadT ;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
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CZRJIO.P11 28-MAR-79 09:03 14 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0058 
2685 
2686 
2687 
2688 
2689 sy eteeeareeeeeeeeeeeeeeteerereeeeteeeeeeetetereeeetereneeeeeeeeeee 
son s*TEST 5 CHECK MOL TO BE HIGH 
2692 # MAKE SURE THAT DRIVE IS ON LINE BEFORE STARTING PROGRAM 
2693 “he IF DRIVE IS OFFLINE, THEN AFTER TYPE OUT THE PROGRAM WILL 
sore :* HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE. 
2696 ; eeeeeeereereeeeeeteeteeeeee eee eee eee eee KAKA Keer eee eee 
2697 011070 000004 TST5: SCOPE 
2698 011072 012737 000005 004604 MOV #6-1,Q0#1TSTNM ; THIS SAVES TEST NUMBER 
2699 011100 004737 041524 JSR PC ,a#CLDISK GIVE INITIALIZE 
2700 011104 032713 010000 BIT WMOL ,aR3 ;CHECK MOL IN RHDS1 
2701 011110 001151 BNE TST6 : BRANCH IF MOL HIGH 
2702 011112 104401 011120 TYPE zo2* ie TYPE ASCIZ STRING 
2703 011116 000420 BR GET OVER THE ASCIZ 
2704 3365$: .ASCIZ o18><12>/DRIVE 1S OFFLINE - MOL IS LOW/ 
2705 011160 64$: 
2706 011160 104401 011166 TYPE ,67$ 73 TYPE ASCIZ STRING 
2707 011164 000424 BR 66% ;GET OVER THE ASCIZ 
2708 ::67$: .ASCIZ <15><12>/HIT START ON DRIVE TO GET IT ON LINE/ 
2709 011236 66$: 
2710 011236 104401 011244 TYPE 609% ii TYPE ASCIZ STRING 
2711 011242 000431 BR 68% ;GET OVER THE ASCIZ 
2712 5:09$: .ASCIZ <15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS HIGH/ 
2713 011326 68$: 
2714 011326 032713 010000 1$: BIT #MOL ARS CHECK MOL IN RHDS1 
2715 011332 001775 BEQ 1$ ;BRANCH IF MOL IS HIGH 
2716 011334 104401 011342 TYPE ,71$ is TYPE ASCIZ STRING 
2717 +011340 000435 BR 70$ ;GET OVER THE ASCI2Z 
2718 3371$: .ASCIZ <15><12>/G00D - MOL IS NOW HIGH. PROGRAM WILL NOW BE EXECUTED/<15><12> 
2719 011434 70$: 


CZ 
CZ 


2736 


0, 
PI 


011434 


011436 
011444 


011450 


oooo o0ooO 900 oO 
—_ 
— 
Fa 
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000004 


012737 
012706 


004737 


022626 
022711 
001403 
104065 


012712 
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000006 
001000 


041524 


002266 
011526 
000340 


000200 
000300 


042222 
001200 


000040 
004200 


000040 


MACY11 


004604 


177776 


001200 


H 5 
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15 CHECK MOL TO BE HIGH 


pp eteeerererererereteeerreeeeteeerereereKeeteeeeeeeeeeeeeeeeee es 


s*TEST 6 PROGRAM INTERRUPT 


;* PROGRAM INTERRUPT !5S tg BY SETTING RDY AND IE 
;* IN RHCS1 AT THE SAME TIME 

;# THIS SHOULD INTERRUPT THROUGH LOCATION 254 

;* THE PROCESSOR PRIORITY 1S SET TO 4 
Ss 


-*e#eeeeeeeeetekereteteeeeeeeeeteteneeeeeeeeteeteeeeeeeeAReeeeeteee 


1$16: SCOPE 


MOV #7-1,QaTSTNM ; THIS SAVES TEST NUMBER 
MOV #STACK,SP ;RESET STACK 
JSR PC, ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 


jR3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


MOV a#RPVEC,RO ;GET RP VECTOR ADDRESS 
MOV MRPTRP1,(RO)*  ;THIS 1S FOR TIMELY INTERRUPTS 
MOV #340,(RO) ;RPO4 INTERRUPT SERVICE ROUTINE 
;PRIORITY = 7 
MOV #200,PS ;SET PROCESSOR PRIORITY @ 4 (DISK @ 5) 
MOV WROY'IE,aR1 ROY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
MOV a4 TIMCNT,a#STMP1; COUNTER 
DEC aaSTMP WAIT FOR INTERRUPT 
BNE 1$ ;BRANCH IF NOT ZERO 
;BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR 
ERROR 65 ; INTERRUPT DID NOT OCCUR 
MOV #40,aR2 ;CLEAR CONTROLLER VIA CS2 CLR BIT 
BR TST? : BRANCH 10 NEXT TEST coceeeeeecececcess ) 
RPTRP1: CMP (SP)+,(SP)+ RESTORE STACK 
CMP #DVA!RDY,aR1 ;1E SHOULD BE LOW AS RUPT OCCURRED 
BEQ TS17 ; CONTINUE 1F 6009 cucececesesecescese ) 
ERROR 65 ; INTERRUPT OCCURED BuT 
;1E FAILED TO RESET 
MOV #49 ,aR2 ;CLEAR CONTROLLER VIA CS2 CLR BIT 


SEQ 0059 
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011544 


011546 
011554 


011560 


000004 


012737 
012706 


004737 


022626 
104065 


012712 


CTLRI 


9 09:03 


000007 
001000 


041524 


002266 
011634 
000340 


000240 
000300 


042222 
001200 


000040 


000040 


MACY11 


004604 


177776 


001200 


a 
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16 PROGRAM INTERRUPT SEQ 0060 


sy eteeeeereertereererereterererererereeeeeeeeeeeReeeeeeeeeteee eee 


s*TEST 7 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


7? PROCESSOR PRIORITY IS SET AT 5 (SAME AS THE DISK) 
3* 1E AND RDY IS SET. THIS SHOULD NOT ALLOW INTERRUPT 
spe eeerereereeeeeeeeeeeeeeeeeee tetera ee Ree KARA KAKeRKeeAeeAteneee 
TST7: SCOPE 
MOV #10-1,a#TSTNM ; THIS SAVES TEST NUMBER 
MOV #STACK,SP sRESET STACK 
JSR PC ,a#CLDISK 7SET RI-RHCS1, R2- — 
;R3-RHDS1, R4-RHER 
GIVE RH-11 inl Tia ize 
; SETUP UNIT NUMBER 
MOV @#RPVEC RO ;GET RP VECTOR ADDRESS 
MOV #RPTRP2,(RO)+ sTHIS IS FOR UNTIMELY INTERRUPTS 
MOV #340, (RO) ;RPO4 INTERRUPT SERVICE ROUTINE 
;PRIORITY = 7 
MOV #240,PS sSET PROCESSOR PRIORITY @ 5 
MOV #ROY'IE,AR1 sROY, IE IN RHSC1 WHOULD CAUSE INTERRUPT 
MOV O#TIMCNT,a#$1MP1; COUNTER 
DEC aaSIMP i sWAIT FOR INTERRUPT 
BNE 1$ ;BRANCH IF NOT ZERO 
a whey THIS IS ZERO INTERRUPT WHOULD 
;OCCU 
MOV #40,aR2 ;CLEAR THE CONTROLLER VIA CS2 CLR BIT 
BR TST10 . NO INTERRUPT SO CONTINUE eee-ee----------- ) 
RPTRP2: CMP (SP)+,(SP)+ sRESTORE STACK 
ERROR 65 s INTERRUPT OCCURRED WITH PROCESSOR 
s;PROCESSOR STATUS SAME AS DISK 
MOV #40,aR2 sCLEAR THE CONTROLLER VIA CS2 CLR BIT 





—* st 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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000004 
012706 
012737 


004737 


012737 


005737 


000402 
000137 
104401 
000407 


013746 
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001000 
000010 


041524 


000000 


004724 
000042 
001100 


012424 
011730 


004716 
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PACK ACKNOWLEDGE 


,, teeereereerrerreereerretereereeeeeeteeeeeeeeeeeAeeeeeeeeetee es 


PACK ACKNOWLEDGE 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 


If THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF NO ACT-11 MONITOR IS PRESENT 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


THIS TESTS THE ACKNOWLEDGE COMMAND=44 
$1 BIT #6 


MOL BIT = RHDS1 BIT #12 

DVA BIT = RHCS1 BIT #11 

THE DRIVE 1S STOPED MOL IS CHECKED 10 BE 0 
AND DVA SHOULD BE 0 

THE DRIVE 1S POWERED UP 

VV SHOULD BE 0, 


MACY11 30A(1052) 
110 


ee MOL SHOULD BE 1, DVA SHOULD BE 1 
ALL REGISTERS EXCEPT RHDB, RHLA AND RHCC ARE STORED 
PACK ACKNOWLEDGE IS ISSUED 

ALL STORED REGISTERS SHOULD BE UNCHANGED 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
2eseeeeererntrntrerneeeeeeeteeeeees 


cmc Maes a ee ee ee ee ee 


“SAVE TEST NUMBER 


:GIVE RH-11 INITIALIZE 
:SETUP UNIT NUMBER 
“SET PROCESSER STATUS TO 0 


:*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
:1S THIS A 220 START ? 


SKIP THIS TEST IF SO 
; MONITOR Mie RETURN ADDRESS ? 


:SKIP THIS TEST IF NOT 
;CONTINUE WITH THIS TEST 


JUMP TO NEXT TEST 
ii TYPE ASCIZ STRING 

GET OVER THE ASCI2Z 
O18 <129/S10P DRIVE / 


;GET UNIT UNDER TEST 
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CZRJID.P11 8-MAR-79 09:03 110 PACK ACKNOWLEDGE SEQ 0062 
2858 011752 104405 TYPDS 
2859 011754 104401 011762 TYPE ,67% 434445 ASCIZ STRING 
2860 011760 000413 BR 66$ T OVER THE ASCIZ 
2861 33678: .ASCIZ / THEN HIT cont tiie 7<189<12> 
2862 012010 66$: 
2863 012010 000000 HALT 
2864 012012 032713 010000 BIT #MOL ,aR3 sMOL IN RHDS1 SHOULD BE = 0 
2865 012016 001403 BEQ 3$ ;BRANCH IF MOL=0 
2866 012020 010337 001122 MOV R3,a#S$BDADR sFAILING REGISTER ADDRESS-RHDS1 
2867 012024 104010 ERROR 10 :ON SPINPLE POWERED DOWN 
2868 ‘ sMOL SHOULD BE 0 
2869 012026 013746 004716 3$: MOV Q#UNIT,-(SP) UNIT NUMBER 
2870 012032 052716 000100 BIS WIR, (SP) s INCLUDE IR 
2871 012036 022612 CMP (SP)+,aR2 ONLY UNIT NO. AND IR SHOULD BE 
2872 sHIGH IN RHCS2 
2873 012040 001403 BEQ 4% ;BRANCH IF Re $2 GOOD 
2874 012042 010237 001122 MOV R2,a#SBDADR sFAILING REGISTER ADDRESS-RHCS2 
2875 012046 104011 ERROR 11 ‘WITH SPINDLE POWERED DOWN 
2876 “ONLY UNIT NO. AND IR SHOULD BE 
2877 HIGH 
2878 
oo 012050 4$: 
2881 012050 004737 041524 JSR PC, ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
2882 >R3-RHDS1, R4-RHERI 
2883 :GIVE RH-11 INITIALIZE 
2884 tte UNIT NUMBER 
2885 012054 104401 012062 TYPE 69% i TYPE ASCIZ STRING 
2886 012060 000407 BR 68% GET OVER THE ASCIZ 
2887 769%: .ASCIZ <15><12>/START DRive/ 
2888 012100 bas: 
2889 012100 013746 004716 MOV Q#UNIT,-(SP) ;GET UNIT UNDER TEST 
2890 012104 104405 TYPDS 
2891 012106 104401 012114 TYPE ,71$ 7s TYPE ASCIZ STRING 
2892 012112 000420 BR 70% :GET OVER THE ASCI2Z 
2893 3:71$: .ASCIZ / AFTER HEAD LOAD. HiT CONTINUE/<15><12> 
2894 012154 70$: 
2895 012154 000000 HALT 
28 012156 032713 010000 BIT #MOL ,aR3 ;MOL IN es fey ye BE = 1 
2897 012162 001411 BEQ 5$ ;BRANCH IF MOL = 0 
2898 012164 032713 000400 BIT #DPR,aR3 sDPR IN RNDST" SHOULD BE = 1 
2899 012170 001406 BEG : BRANCH IF DPR = 0 
2900 012172 032713 000200 BIT #ORY ARS sDRY IN RHDS1 SHOULD BE = 1 
2901 012176 001403 BEQ 5$ ;BRANCH IF DRY =0 
2902 012200 032713 000100 BIT #vv,aR3 :VV_ IN RHDS1 SHOULD = = 0 
2903 012204 001403 BEQ 6$ BRANCH IF vv = 0 (G00 
2904 012206 010337 001122 5$: MOV R3,a#$BDADR sFAILING REGISTER ADDRESS - RHDS1 
2905 012212 104012 ERROR 12 WITH SPINDLE POWERED UP 
sone RHDS 1 SHOULD HAVE vv = 0, MOL = 1 
2908 012214 011100 6$: MOV ari,RO ;GET RHCS1 CONTENTS 
2909 012216 042700 160076 BIC #SC'TRE'MCPE! 76, RO sCLEAR SC,TRE,MCPE AND 
2910 ALL FUNCTION BITS 
2911 012222 022700 004200 CMP #DVA'RDY,RO ;RHCS1 SHOULD ha bag 


2912 GO = 0, DVA= 1, 1 
2913 012226 001405 BEQ 7$ “BRANCH If RHCSI iS” Goo 
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CZRJ10.P11 28-MAR-79 09:03 110 PACK ACKNOWLEDGE SEQ 0063 
2914 012230 010137 001122 MOV R1,a#SBDADR sFAILING REGISTER RHCS1 
2915 012234 104015 ERROR 13 sAFTER A POWER UP WITHOUT ANY 
2916 ;INIT RHCS1 SHOULD HAVE 
2917 :60 = 0, DVA = RDY = 1, IE = 0 
34 [DISREGARD ALL OTHER BITS 
2920 012236 005777 170072 7$: TST QRHCC :TEST RHCC, IT SHOULD = 0 
2921 012242 001411 BEQ 10$ ‘BRANCH IF RHCC = 0 
2922 012244 013737 002334 004600 MOV Q@#RHCC,A#REGADR ; FAILING REGISTER RHCC 
2923 012252 005037 001124 CLR aaS$GDDAT ‘RHCC SHOULD BE = 0 
2924 012256 017737 170052 001126 MOV QRHCC,a#SBDDAT :BAD DATA 
2925 012264 104014 ERROR 14 sAFTER POWER UP RHCC 
2926 :SHOULD BE 0 
2927 
see 012266 10$: 
2930 012266 004737 041524 JSR PC ,aa#CLDISK 7SET R1I-RHCS1, R2-RHCS2 
2931 :R3-RHDS1, R4-RHER1 
2932 GIVE RH-11 INITIALIZE 
2933 :SETUP UNIT NUMBER 
2934 012272 004737 041562 JSR PC, a#CHECK sCHECK THAT DVA,RDY.MOL,DPR,DRY = 1 
2935 :AND THAT NO STATUS BITS ARE STUCK = 1 
2936 012276 104401 067033 TYPE ,CPHALT CANNOT CONTINUE TESTS IF THEY AREN'T 
2937 012302 00000 HALT :STOP 
2938 012304 013777 002460 167766 MOV @#PKACK,@RHCS1 ;GET READY FOR PKACK 
2939 :PACK ACKNOWLEGDE WITH 22 IN RHCS1 
sock 
2962 :*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 
4 
2944 012312 004037 041672 JSR RO, a@#SAVER ;SAVE REGISTERS 
2945 012316 002272 RHWC :RHWC 1S THE FIRST REGISTER SAVED 
2946 012320 004612 SAVERE STARTING ADDRESS OF WHERE 
2947 THE REGISTERS ARE SAVED 
2948 012322 000022 18. NUMBER OF REGISTERS 
sos8 sSAVED = 18. 
2951 012324 013777 004606 167734 MOV QARPGVEC ARPVEC ; SET RPO4 VECTOR ADDRESS 
2952 TO "TIME1' IF P=CLOCK IS PRESEN 
2953 “OR TO 'TIME2' IF P-CLOCK IS NOT TRE SENT 
2954 :*TIME' WILL ONLY SAVE 
2955 CURRENT CYLINDER ADDRESS 
2956 :AND LOOK AHEAD REGISTERS 
5986 
2959 012332 013746 002460 MOV Q#PKACK,-(SP) ;GET READY TO MOVE COMMAND 
2960 012336 052716 000001 BIS #60, (SP) :GET READY TO SET GO 
2961 WITHOUT INTERRUPT ENABLE 
2962 012342 012677 167732 MOV (SP)+,@RHCS1 :G0 WITH 
2963 :22 IN RHCS1 FOR PACK ACKNOWL EDGE 
2964 sWITH INTERRUPT DISABLED 
2965 
2966 
2967 
2968 012346 104413 WAT ;wALT FOR vv BIT TO SET 


2969 0123550 002322 RHDS1 ;WALT FOR RHDS1 REGISTER 
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CZRJID.P11 — 28-MAR-79 09:03 110 PACK ACKNOWLEDGE 
2970 012352 000100 vv ;WAIT FOR VV BIT IN RHDS1 REGISTER 
2971 012354 000001 1. TALLOW 10 MICRO SECONDS 
2972 012356 000001 he :VV MUST SET BETWEEN 
2973 :00 AND 20 MICRO SECONDS 
1 
2976 012360 004037 042404 JSR RO, @#CHREG :CHANGE BITS IN SAVED REGISTER 
2977 012364 002322 RHDS1 :CHANGE RHDS1 REGISTER 
2979 012366 000001 1 :1 BIT/BITS TO BE CHANGED 
2980 012370 000001 1 :NEW VALUE OF vv IS 1 
2981 012372 000100 vv :CHANGE VV BIT 
2983 ;*NOW COMPARE REGISTERS SO THAT NO REGISTERS 
2984 :*CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1 
3 
2987 012374 004037 042512 JSR RO, aM COMREG sCOMPARE SAVED REGISTERS WITH 
2988 [PRESENT VALUE 
2989 012400 004612 SAVERE :GOOD DATA SAVED IN "SAVERE' 
2990 012402 002354 we [TEST DATA STARTING FROM ‘RHWC" 
2991 012404 000022 18. 18. REGISTERS TO BE COMPARED 
2992 012406 012412 11$ [RETURN TO 11$ ON ERROR 
2993 012410 012416 128 [RETURN TO 12$ ON NO ERROR 
4 
2995 012412 104015 11$: ERROR 15 :GIVING A PACK ACKNOWLEDGE 
2996 012414 000207 RTS PC CAUSED AN ERROR 
2997 :PACK ACKNOWLEDGE SHOULD 
2998 SET VV IN RHDS1 
2999 : INTERRUPT SHOULD MAKE 
3000 :1€ = 0 
3001 :NO OTHER REGISTERS SHOULD 
3002 : CHANGE 
3003 :GO0D DATA GIVES 
3004 [CONTENTS OF REGISTER BEFORE 
3005 :PACK ACKNOWLEDGE 
3006 :RECEIVED DATA GIVES 
3007 :CONTENTS OF REGISTER 
5008 TAFTER PACK ACKNOWLEDGE 


9 
ty 012416 012737 177777 047342 128: MOV #-1,Q#PRITEM ;CLEAR PREVIOUS ITEM NUMBER 
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012424 


012426 
012430 


012434 
012440 
012446 


012452 
012456 


012462 
012464 


012472 
012476 
012500 


012502 


012504 


012512 
012516 


012522 


000004 


000005 
004737 


012706 
012737 
004737 


004737 
104401 


000000 
013777 


004037 
002272 
004612 


000022 


013777 


013746 
052716 


012677 


045734 


001000 
000011 


041524 


041562 


067033 
002460 


041672 


004606 


002460 
000001 


167552 
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110 


004604 


167606 


167554 
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PACK ACKNOWLEDGE 
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,;eeeeeerererereeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeeeeeeete ee 


S#TEST 11 SET VV BIT #6 IN RHDS1 

ie THIS TEST SETS VV IN RHDS1 INCASE 

he ACT-11 MONITOR IS PRESENT AND THE PREVIOUS TEST 
a* 1S NOT PERFORMED 

'* THERE IS A RESET AT THE BEGINING OF THIS TEST 
hs FOR ERROR RECOVERY ONLY. 


Seek eeeeeeeeeeeteteeeeeeeeeeeeteketeeeeeeneeeeeKneeeneeneteee 


i8111: SCOPE 


;*IN CASE THERE 1S ANY DRIVE ERRORS DURING POWER UP 
ny Fd DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 


JSR 
MOV 
MOV 
JSR 


JSR 


TYPE 
HALT 
MOV 


PC ,@#STKINT 


#STACK,SP 
#11,a¢TSTNM 


PC ,a#CLDISK 


PC ,@#CHECK 
-CPHALT 


@#PKACK ,@RHCS1 


sINITILIZE TK 


RESET STACK 


;SAVE TEST NUMBER 


:SET R1I-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 


;SETUP UNIT NUMBER 


CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 


AND THAT NO STATUS BITS ARE STUCK = 1 
— CONTINUE TESTS IF THEY AREN'T 


;GET READY FOR PKACK 
;PACK ACKNOWLEGDE WITH 22 IN RHCS1 


> *NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


JSR 
RHWC 
SAVERE 
18. 


MOV 


RO, @#SAVER 


@ARP4OVEC ,ARPVEC 


@aPKACK ,~(SP) 
#60, (SP) 


(SP)+*,@RWCS1 


;SAVE REGISTERS 


sRHWC IS THE FIRST REGISTER SAVED 
;STARTING ADDRESS OF WHERE 

; THE REGISTERS ARE SAVED 

sNUMBER OF REGISTERS 

:SAVED = 18. 


;SET RPOG VECTOR ADDRESS 

TO 'TIME1’ IF P-CLOCK 1S PRESENT 

;OR TO *TIME2* IF P-CLOCK 1S NOT PRESENT 
;'TIME’ WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

;AND LOOK AWEAD REGISTERS 


;GET READY 10 MOVE COMMAND 
;GET READY TO SET GO 
:WITHOUT INTERRUPT ENABLE 

:60 WITH 


SEQ 0065 
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CZRJ10.P11 28-MAR-79 09:03 111 SET VV BIT #6 IN RHDSI SEQ 0066 
3068 522 IN RHCS1 FOR PACK ACKNOWLEDGE 
44 sWITH INTERRUPT DISABLED 
3071 012526 011100 MOV ari,RO :SAVE RHCS1 DURING ABOVE OPERATION 
307¢ 012530 011305 MOV aR3,R5 :SAVE RHDS1 DURING ABOVE OPERATION 
3074 
3075 012532 104413 WAT :WAIT FOR vv BIT TO SET 
3076 012534 002322 RHDS1 sWAIT FOR RHDS1 REGISTER 
3077 012536 000100 vv sWAIT FOR VV BIT IN RHDS1 REGISTER 
3078 012540 000001 1. sALLOW 10 MICRO SECONDS 
3079 012542 000001 x. :VV MUST SET BETWEEN 
3090 700 AND 20 MICRO SECONDS 
3082 s*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
3083 :*RO AND R5 IMMEDIATELY AFTER GO 
3085 012544 013746 002460 MOV @MPKACK,-(SP) | ;SAVE COMMAND 
3086 012550 052716 004200 BIS WDVA'RDY, (SP)  ;INCLUDE DVA!RDY 
3087 012554 011637 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 
3088 012560 022600 CMP (SP)+,RO ‘DURING ABOVE OPERATION ONLY DVA!RDY 
3089 :AND COMMAND SHOULD BE SET 
3090 012562 001405 BEQ 64$ :BRANCH IF GOOD 
3091 012564 010037 001126 MOV RO, a#$BDDAT :BAD DATA 
3092 012570 010137 004600 MOV R1,a#REGADR sFAILING REGISTER RHCS1 
3093 012574 104021 ERROR 21 :DURING ABOVE OPERATION ONLY 
3094 :COMMAND AND DVA!RDY SHOULD BE SET 
3095 012576 012746 010700 64$: MOV #MOL'DPRIDRY!VV,-(SP) | ;SAVE BITS SET DURING OPERATION IN RHDS1 
3096 012602 011637 001124 MOV (SP),a#$GDDAT —;SAVE FOR PRINTOUT 
3097 012606 022605 CMP (SP)+,R5 sDURING ABOVE OPERATION ONLY MOL!DPR!DRY' VV 
3098 :SHOULD BE SET 
3099 012610 001405 BEQ 66$ :BRANCH IF GOOD 
3100 012612 010537 001126 MOV RS, a#$BDDAT :BAD DATA 
3101 012616 010337 004600 MOV R3,a#REGADR sFAILING REGISTER RHDS1 
3102 012622 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 
3103 :MOL'DPR!DRY!VV SHOULD BE SET 
gid 012624 66$: 

3106 012624 004037 042404 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
10 012630 002322 RHDS1 :CHANGE RHDS1 REGISTER 

3109 012632 000001 1 :1 BIT/BITS TO BE CHANGED 

3110 012634 000001 1 :NEW VALUE OF vv IS 1 

aH 012636 000100 vv :CHANGE VV BIT 

3113 :*NOw COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 

3114 s*WITH AFTER PACK ACKNOWLEDGE 

3115 

3119 

3118 012640 004037 042512 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
3119 >PRESENT VALUE 

3120 012644 004612 SAVERE :GOOD DATA SAVED IN 'SAVERE' 
3121 012646 002354 wC :TEST DATA STARTING FROM 'RHWC' 
3122 012650 000022 18. -18. REGISTERS TO BE COMPARED 
3123 012652 012656 1$ *RETURN TO 1$ ON ERROR 
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3124 012654 012662 


26 012656 104015 
012660 000207 


ONOUWFWN—OOOn 


012662 


28-MAR-79 09:03 


MACY11 <b 
111 


23: 


t's MAY-79 


2% 
ERROR 
RTS 


15 
PC 


C 6 
10:30 PAGE 68 
VV BIT #6 IN RHDS1 


;RETURN TO 2$ ON NO ERROR 


;GIVING A PACK ACKNOWLEDGE 
; CAUSED AN ERROR 

:PACK ACKNOWLEDGE SHOULD 
;SET VV IN RHDS1 

+ INTERRUPT SHOULD MAKE 


;1€ = 0 
:NO A ya REGISTERS SHOULD 


: GOOD DATA GIVES CONTENTS 
OF REGISTER BEFORE COMMAND 


:RECEIVED DATA GIVES CONTENTS 
;OF REGISTER AFTER COMMAND 


SEQ 0067 


et et at a ts ot ot st ot ot et et Ge ée 


a WA tA rt Gt ts A rt tt I I A IAA AA AA AANA OD 
Hs 
Coon 
Ww 


ee ee et et =a ot oe 


WOOO OOOO NNNNNN 
NOONE WR—OOOnNGC US 
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P11 28-MAR-79 09:03 111 SET VV BIT #6 IN RHDS1 SEQ 0068 
He. eee. |. eee 80k ee 
012662 005737 0046744 TST aaRP06 TEST FOR RP06 DRIV 
012666 001005 BNE 3$ :1F = 1 00 mAKECTL" 777 
012670 005737 004746 TST aaRPOS STEST FOR RPOS DRIV 
012674 001004 BNE 4% ‘IF = 1 00 PMAKECYL” 377 
012676 000137 015022 JMP TST16 ; IF BOTH = 0, DON'T DO EITHER ‘MAKECYL"' ------ ) 
;OR THE ADDRESS PLUG TESTS 
012702 3$: 
012702 000137 012746 JMP TST13_—sx DO "'MAKECYL'' 777 ------eeen nnn n nnn nn nnnnnee-- ) 
012706 4$: 
ppeeeeeeeeeerererereteeereetrerereeeetreeeetereeteneKneeKeneeees 
speeeeeeeeeeeeeeteeeeeeee terete eee eee AAA ARKH AKK ARATE 
s*TEST 12 MAKE CURRENT CYLINDER = 377 
ppeeaeereereeereeereeeeetreeeeeee rete RATA AKA eee Ree 
012706 000004 TST12: SCOPE 
012710 012706 001000 MOV #STACK,SP sRESET STACK 
012714 012737 000012 004604 MOV #13- i" « SeTSTNM :THIS SAVES TEST NUMBER 
012722 004737 041524 JSR PC,a#CLDISK s INIT ORIVE 
012726 012777 000001 167364 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 
012734 004037 041174 JSR RO, @#MAKECYL ;SUBROUTINE TO GIVE A SEEK 
:COMMAND FOLLOWED BY A INIT 
:THIS SHOULD CHANGE RHCC TO 377 
012740 000377 377 
012742 000137 013002 JMP TST14 5 SKIP NEXT ‘'MAKECYL' one nee-e nnn n nnn n nen e---- ) 
seeaneeerereeeereeereretreeeeeeeeetereeeneeeeeKeee eee eee eee 
STEST 13 MAKE CURRENT CYLINDER = 777 
PUTITITI IIIT TIT TTtittteiittee 
012746 000004 1S1T13: SCOPE 
012750 012706 001000 MOV #STACK,SP RESET STACK 
012754 012737 000013 004604 MOV #14-1 aaTSTNM sTHIS SAVES TEST NUMBER 
012762 004737 041524 JSR PC, ,a#CLDISK s INIT DRIVE 
012766 012777 000001 167324 MOV #DMD ,QRHMR :SET DIAGNOSTIC MODE 
012774 004037 041174 JSR RO, a#MAKECYL ;SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLLOWED BY A INIT 
sTHIS SHOULD CHANGE RHCC TO 777 
013000 000777 777 
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Pil 28-MAR-79 09:03 113 MAKE CURRENT CYLINDER = 777 SEQ 0069 


pp eeeeerrerererererererrerererrerereeereeeeeeeeeKeeeeeAeAee eee eee 


s*TEST 14 ADDRESS PLUG CHANGE ERROR 


“hes CHECK PROPER ADDRESS PLUG FUNCTIONALITY 

;* BY PULLING THE ADDRESS PLUG DURING A COMMAND ISSUED 

“he IN DIAGNOSTIC MODE (TO GUARANTEE COMMAND IS STILL ACTIVE WHEN 
3* PLUG 1S PULLED) AND VERIFYING THAT THE DRIVE GOES OFF LINE 


bed THE ADDRESS PLUG 1S THEN REPLACED AND RETURN OF THE PROPER 

he RESPONDING DRIVE IS VERIFIED, AS WELL AS THE FACT THAT 

ed ATTENTION BITS COME UP IN THE PROPER BIT LOCATION(???22), AND THE 

“es ADDRESS CHANGE ERROR (ACE) - RHER3 BIT #13 IS SET, AS WELL AS 

5° SC,TRE,ERR,AND MCPE; VV 1S RESET AND RHCC = 000 (DRIVE RECALIBRATED) 


:* IN ADDITION VERIFICATION IS ALSO MADE THAT NO OTHER DRIVE 

s® NUMBERS APPEAR ON THE BUSS AFTER THE PLUG IS REPLACED. (777777) 

ppeeeeeeeeereteeeeeTeeeere rete ee ee terete AAA A AeA E RATT 
013002 000004 TST14: SCOPE 


0130046 012737 000001 001212 MOV #1,$TIMES 3:00 1 ITERATION 
Ped eeeeeeKeeTe eee ee eee ete Tete tet t ete tT AeA EAA EEE 
013012 005737 004744 TST a#RP06 TEST FOR RPO6 DRIVE 
013016 001005 BNE 4$ :1F = 1, DO THIS TEST 
013020 005737 004746 TST a#RPOS TEST FOR MEMOREX RPO4 
013024 001002 BNE 4% :1F = 1, DO THIS TEST 


iF NEITHER FLAG 1S UP, ASSUME THE 

: DRIVE 1S AN ISS RPO4 AND SKIP TEST 
013026 000137 014014 JMP TST) 3 JUMP TO NEXT TEST ----------------- ) 
013032 4$: 


PERERA EERE ERATE AAT TATA T AAT AAA TATRA TART A ATA T 


013032 012706 001000 MOV STACK ,SP ;RESET STACK 
013036 012737 000014 004604 MOV #14,0#TSTNM ; SAVE TEST NUMBER 
013044 004737 041524 JSR PC ,a#CLDISK 7SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


013050 004737 041604 JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
013054 104401 067033 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
013060 000000 HALT ; STOP 
:*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 


013062 005737 004724 TST @#NOPUSH ;1S THIS A 220 START ? 

013066 001007 BNE 1$ ;SKIP_ THIS TEST IF SO 

013070 005737 000042 TST an42 ;MONITOR (ACT 11) RETURN ADDRESS ? 
013074 001004 BNE 1$ SKIP THIS TEST 

013076 005737 001100 TST a#$PASS FIRST PASS ? 

013102 001001 BNE 1$ SKIP THIS TEST IF NOT 

013104 000402 BR 2$ CONTINUE WITH THIS TEST 


0, 
PI 


013266 
013270 
015272 
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000137 


052777 


004037 
002272 
004612 


000022 


104401 
000420 


013746 
104405 
104401 
000415 


000000 


017700 
004737 
032737 
001001 


104101 
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014014 


000001 167200 


041672 


013140 


004716 
013214 


167030 
043436 
010000 002360 


1$: 
2$: 


7$: 
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ADDRESS PLUG CHANGE ERROR 


JMP S133 HEP VO WERT FES) oceewosseseeesse ) 


;*SET DIAGNOSTIC MODE TO ENABLE A COMMAND ACTIVE WHILE 
;*THE PLUG IS PULLED 

BIS #OMD ,@RHMR ;SET UP DIAGNOSTIC MODE 

;*TAKE AN INITIAL REGISTER SNAPSHOT 

JSR RO,@#SAVER : SAVE REGISTERS 


RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

s THE REGISTERS ARE SAVED 
18. = NUMBER OF REGISTERS 

sSAVED = 18. 


:*1SSUE A COMMAND AND THE ‘GO BIT (NOT POSITIONING COMMAND) 
;*T0 VERIFY COMMAND ABORT IF PLUG IS PULLED 


;*1SSUE SOME CLOCKS TO GET THE COMMAND STARTED 
>*(USE ‘SEARCH’ WITH ''‘DTETST’’ FLAG UP TO STOP CLOCKING ?) 


TYPE nd ie TYPE ASCIZ STRING 

BR 3;GET OVER THE ASCIZ 

-ASCIZ o18><12>/REMOVE "ADDRESS PLUG ON DRIVE/ 

MOV O#UNIT,-(SP) ;GET THE oh NO. UNDER TEST 
TYPDS :TYPE IT OUT 

TYPE ,67$ ii TYPE ASCIZ STRING 


BR 66$ ;GET OVER THE ASCIZ 
eASCIZ / THEN PRESS CONTINUE / 


HALT ;WAIT FOR OPERATOR PLUG CHANGE 
;*CHECK THAT THE UNIT NO. UNDER TEST HAS GONE OFFLINE 
MOV ARHDST,RO ;ATTEMPT TO ADDRESS THE DRIVE 


JSR PC ,a#PUTREG ; TAKE REGISTER SNAPSHOTS 
BIT #NED ,a#CS2 ; TEST FOR NON EXISTENT DRIVE 


BNE 7$ ;CONTINUE IF ‘NED’ BIT SET (UNIT 
;1S OFFLINE AS IT SHOULD BE) 
ERROR 101 ;UNIT DID NOT GO OFFLINE WHEN ADDRESS 


;PLUG WAS REMOVED 


SEQ 0070 
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CZRJID.P11 28-MAR-79 09:03 114 ADDRESS PLUG CHANGE ERROR SEQ 0071 
3296 
3297 s*NOW REPLACE THE ADDRESS PLUG 
3298 
3299 
3300 013272 104401 013300 TYPE 69% 43444, ASCIZ STRING 
3301 013276 000420 BR 68$ GET OVER THE ASCIZ 
3302 3;69%: .ASCIZ <15><12>/REPLACE- ADDRESS PLUG ON DRIVE/ 
3303 013340 68$: 
3304 013340 013746 004716 MOV Q@A#UNIT,-(SP) ;GET THE UNIT UNDER TEST 
3305 013344 104405 TYPDS Hehe IT OuT 
3306 013346 104401 013354 TYPE (1% sTYPE ASCIZ STRING 
3307 013352 000416 BR 70% GET OVER THE ASCIZ 
3308 3371$: .ASCIZ / THEN PRESS CONT INUE/<15><12> 
3309 013410 708: 
aai9 013410 000000 HALT sWAIT FOR OPERATOR PLUG REPLACEMENT 
seig :*CHECK THAT THE ORIGINAL UNIT HAS COME BACK ON LINE 
3314 013412 004737 043436 JSR PC, ,a#PUTREG s TAKE NEW REGISTER SNAPSHOTS 
3315 013416 032737 09000400 002404 BIT #DPR,a4#DS1 :TEST THAT ‘DPR* = 1 
3316 013424 001411 BEQ 9$ sERROR - DRIVE SHOULD BE PRESENT 
3317 013426 032737 004000 002362 BIT #DVA,aaCS) sTEST THAT DEVICE 1S NOW AVAILABLE 
3318 013434 001405 BEQ 9$ ERROR - "DVA* SHOULD = 
3319 013436 032737 000200 002404 BIT #DRY,a4DS1 : TEST THAT DRIVE READY IS = 1 
3320 013444 001401 BEQ 9$ TERROR - 'DRY' SHOULD = 1 
3321 013446 000403 BR 8$ [A-OK: "DPR' = 1, 'DVA' = 1, & "DRY* =1 
3322 013450 104102 9$: ERROR 102 sUNIT NOT AVAILABLE AFTER 
3323 sADDRESS PLUG WAS REPLACED 
seSe 013452 000137 014014 JMP TST15_— JUMP TO NEXT TEST --e----------- ) 
3326 013456 8$: sCHANGE THE INITIAL REGISTER SNAPSHOT TO EXPECTED VALUES 
3327 stAFTER THE PLUG CHANGE 
38 
3330 013456 004037 042404 JSR RO, @4CHREG sCHANGE BITS IN SAVED REGISTER 
He 013462 002300 RHCS1 : CHANGE RHCS1 REGISTER 
3333 0134604 000004 4 34 BIT/BITS TO BE CHANGED 
3334 013466 000001 1 sNEW VALUE OF RDY IS 1 
3335 013470 000200 RDY > CHANGE RDY BIT 
3336 013472 000001 1 sNEW VALUE OF SC IS 1 
3337 013474 100000 sc ; CHANGE SC BIT 
3338 013476 000001 1 ;NEW VALUE OF TRE IS 1 
3339 013500 040000 TRE > CHANGE TRE BIT 
3340 013502 000001 1 sNEW VALUE OF MCPE IS 1 
See 013504 020000 MCPE sCHANGE MCPE BIT 
4 
3343 013506 004037 042404 JSR RO, ad#CHREG :CHANGE BITS IN SAVED REGISTER 
ne: 013512 002322 RHDS1 ; CHANGE RHDS1 REGISTER 
4 
3346 013514 000003 3 33 BIT/BITS TO BE CHANGED 
3347 013516 000001 1 sNEW VALUE OF ATA IS 1 
3348 013520 100000 ATA sCHANGE ATA BIT 
3349 013522 000001 1 sNEW VALUE OF ERR IS 1 
3350 013524 040000 ERR ; CHANGE ERR BIT 
3351 013526 000000 0 sNEW VALUE OF vv IS 0 
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004037 
see 
013616 
104100 
000207 


042404 


042404 


004740 


004654 


042512 
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ADDRESS PLUG CHANGE ERROR SEQ 0072 
VV ;CHANGE VV BIT 

JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
RHCS2 CHANGE RHCS2 REGISTER 

1 ;1 BIT/BITS TO BE Oe yee 

1 [NEW VALUE OF NED IS 1 

NED ; CHANGE NED BIT 

JSR RO, @#CHREG ;CHANGE BITS _IN SAVED REGISTER 
RHER3 CHANGE RHER3 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ACE IS 1 

ACE ; CHANGE ACE BIT 

BIS Q#ATTENT, @#SAVERE*+24 ;SET UNIT UNDER TEST ATTENTION 
CLR O#SAVERE+42 SET RHCC REGISTER IMAGE TO ALL O'S 


;*TAKE A NEW REGISTER SNAPSHOT AND 
> *COMPARE THE REGISTER CONTENTS WITH EXPECTED VALUES 


JSR RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 

wC TEST DATA STARTING FROM ‘RHWC' 

18. 718. REGISTERS TO BE COMPARED 

5$ ;RETURN TO 5$ ON ERROR 

6% ;RETURN TO 6% ON NO ERROR 

ERROR 100 ADDRESS PLUG CHANGE CAUSED SOME 


;REGISTER ERROR 
;GO BACK AND CHECK THE NEXT REGISTER 
UNTIL ALL 18. HAVE BEEN DONE 
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CZRJ1D.P11 28-MAR-79 09:03 114 ADDRESS PLUG CHANGE ERROR SEQ 0073 

3387 

3388 

t+ :*NOW CLEAR OUT THE CONTROLLER AND DRIVE 

tad 013616 6$: 

3393 013616 004737 041524 JSR PC ,a#CLDISK sSET R1-RHCS1, R2-RHCS2 

3394 >R3-RHDS1, R4-RHERI 

3395 *GIVE RH-11 INITIALIZE 

Seep :SETUP UNIT NUMBER 

3398 s*CHANGE THE REGISTER SNAPSHOT TO EXPECTED VALUES AFTER THE CLEAR 
3400 

3401 013622 004037 042404 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
3402 013626 002300 RHCS1 sCHANGE RHCS1 REGISTER 

3404 013630 000003 3 :3 BIT/BITS TO BE CHANGED 

3405 013632 000000 0 sNEW VALUE OF SC IS 0 

3406 013634 100000 SC sCHANGE SC BIT 

3407 013636 000000 0 :NEW VALUE OF TRE IS 0 

3408 013640 040000 TRE :CHANGE TRE BIT 

3409 013642 000000 0 :NEW VALUE OF MCPE IS 0 

3410 013646 020000 MCPE >CHANGE MCPE BIT 

3412 013646 004037 042404 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
gals 013652 002322 RHDS1 :CHANGE RHDS1 REGISTER 
3415 013654 000002 2 :2 BIT/BITS TO BE CHANGED 

3416 013656 000000 0 sNEW VALUE OF ATA IS 0 

3417 013660 100000 ATA sCHANGE ATA BIT 

3418 013662 000000 0 :NEW VALUE OF ERR IS 0 

1 013664 040000 ERR :CHANGE ERR BIT 
3421 013666 004037 042404 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
3422 013672 002276 RHCS2 sCHANGE RHCS2 REGISTER 

4 

3424 013674 000001 1 :1 BIT/BITS TO BE CHANGED 

3425 013676 000000 0 :NEW VALUE OF NED IS 0 

3426 013700 010000 NED sCHANGE NED BIT 

4 

3428 013702 004037 042404 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
3429 013706 002314 RHER3 >CHANGE RHER3 REGISTER 

4 

3431 013710 000001 1 :1 BIT/BITS TO BE CHANGED 

3432 013712 000000 0 :NEW VALUE OF ACE IS 0 

3435 013714 020000 ACE sCHANGE ACE BIT 

434 

3435 013716 004037 042404 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
3436 013722 002320 RHMR =CHANGE RHMR REGISTER 

4 

3438 013724 000001 1 :1 BIT/BITS TO BE CHANGED 

3439 013726 000000 0 sNEW VALUE OF DMD 1S 0 

3440 013730 000001 DMD :CHANGE DMD BIT 


3442 013732 043737 004740 004636 BIC Q#ATTENT, QMSAVERE*+24 ;UNIT UNDER TEST ATTENTION B11 
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ADDRESS PLUG CHANGE ERROR 


;*TAKE ANOTHER REGISTER SNAPSHOT AND COMPARE RESULTS 
s*WITH THE EXPECTED VALUES 


JSR RO, a#COMREG 


SAVERE 

wC 

18. 

10$ 

11$ 

ERROR 100 
RTS PC 


;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC' 
;18. REGISTERS TO BE COMPARED 
;RETURN TO 10$ ON ERROR 

;RETURN TO 11% ON NO ERROR 


; ADDRESS PLUG CHANGE CAUSED SOME 
; INCORRECT REGISTER RESULT 


;*(USE NED METHOD TO VERIFY 
;*THAT ATTENTION BIT COMES UP IN THE PROPER LOCATION ??) 


:*SET ‘vv' IN RHDS1 AFTER RESET FROM THE RECALIBRATE 


;*CAUSED BY PULLING THE 


MOV O#PKACK ,-(SP) 
BIS #60, (SP) 
MOV (SP)+,@RHCS1 


MOV aR1,RO 
MOV OR3,R5 


PLUG 


;GET READY TO MOVE » pens 

3GET READY TO SET 

WITHOUT INTERRUPT a 

3G0 WITH 

:22 IN RHCS1 FOR PACK ACKNOWLEDGE 


;WITH INTERRUPT DISABLED 


; SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR VV BIT TO SET 


iWAIT FOR RHDS1 REGISTER 

WAIT FOR VV BIT IN RHDS1 REGISTER 
SALLOW 10 MICRO SECONDS 

;VV MUST SET BETWEEN 


:0G AND 20 MICRO SECONDS 


SEQ 0074 
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CZRJIO.P11 28-MAR-79 09:03 T14 ADDRESS PLUG CHANGE ERROR SEQ 0075 
3489 
3490 
3491 
3492 ppeeeeeeerererereeeeeererereerereeererereeReKeTeeeeeeeeRe eee eee 
eb ty s*TEST 15 CHECK ALL ADDRESS PLUG ADDRESSES 
ob i* CHECK THAT ALL ADDRESS PLUG NUMBERS FUNCTION PROPERLY 
3497 3* THIS TEST 1S DONE FOR MEMOREX RPO4'S AND RPO6'S ONLY 
hs 3* THIS TEST 1S SELECTED BY Sw#5 AND THE DEFAULT IS NOT TO DO IT 
3500 ppeeeeeererererererereeererereretetereeKeeeeeeeeneeeKeeeeeeee eee 
3501 014014 000004 1S115: SCOPE 
434 014016 012737 000001 001212 MOV #1, STIMES 3:00 1 ITERATION 
3504 P_eeeeeeeeenreereeeeretererereeeteteteteeteeeeeeeeteeeneeeeeA eee 
3505 014024 005737 004744 TST a#RP06 TEST FOR RPO6 DRIVE 
3506 014030 001005 BNE 4% oar 1, OK TO DO THIS TEST 
3507 014032 005737 004746 TST aaRPOS TEST FOR MEMOREX RPO4 
3508 014036 001002 BNE 4% 3 iF 1, OK TO DO THIS TEST 
3509 “NOT AN RPO6 OR MEMOREX RPO4 SO 
3510 ;ASSUME AN ISS RPO4 AND SKIP TEST 
3511 014040 000137 015022 JMP TST16—o; JUMP TO NEXT TEST -------------------- ) 
3512 014044 4s: 
3513 ppeeeeeeeeeeeeeereteteeeteeereeeeeteeteneKeKee eee R Kee 
3514 
4h s*CHECK TO SEE IF THIS TEST HAS BEEN SELECTED WITH Sw5 
3517 014044 032777 000040 165066 BIT #SW5.aSwWR s TEST THE SWITCH 
3518 014052 001002 BNE 5$ s1f 0, TEST HAS NOT BEEN SELECTED 
3519 014054 000137 015022 JMP rET6. 3 JUMP TO NEXT TEST ------------------- ) 
3520 014060 5$: ;TEST SELECTED, CONTINUE IT 
a 
tS: s*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 
3525 014060 005737 004724 TST @#NOPUSH 31S THIS A 220 START ? 
3526 014064 001007 BNE 1$ sSKIP THIS TEST IF SO 
3527 014066 005737 000042 TST a#42 sMONITOR (ACT 11) RETURN ADDRESS ? 
3528 014072 001004 BNE 1$ sSKIP THIS TEST 
3529 014074 005737 001100 TST Oaa#SPASS sFIRST PASS ? 
3530 014100 001001 BNE 1$ ;SKIP THIS TEST IF NOT 
se5 014102 000402 BR 2% ;CONTINUE WITH THIS TEST 
3533 014104 1$: 
3534 014104 000137 015022 JMP TST16 : JUMP TO NEXT TEST ooeeeeeeeee<ee-- ) 
3535 014110 2$: 
3536 014110 012706 001000 MOV #STACK,SP ;RESET STACK 
$44 014114 012737 000015 004604 MOV #15,a#TSTNM ;SAVE TEST NUMBER 
3539 014122 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 | 
3540 R3-RHDS1, R4-RHERI | 
3541 sGIVE RH-11 INITIALIZE 
3542 ;SETUP UNIT NUMBER 
3543 014126 004737 041604 JSR PC ,a#CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


5544 ;AND THAT NO STATUS BITS ARE STUCK = 1 





014132 
014136 
014140 
014144 
014222 
014222 
014226 


014266 


014266 


CZRJIDO, RPO4/5/6 FCTNL CTLRI 
09:03 


CZRJID.P11 28-MAR-79 


104401 
000000 


104401 
000426 


104401 
000417 


013737 


MACY11 30A(1052) 
115 
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CHECK ALL ADDRESS PLUG ADDRESSES SEQ 0076 


-CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
at SET OF BITS DON'T = 1 


vy +: TYPE ASCIZ STRING 
64% ;GET OVER THE ASCIZ 
<15><12>/ALL DISK DRIVES EXCEPTING THE UNIT UNDER/ 


,67$ i 2 TYPE ASCIZ STRING 


66% GET OVER THE ASCIZ 
<15><12>/TEST MUST BE POWERED DOWN/<!5><12> 


Q#UNIT,@#INUNIT ;MAKE THE INITIAL UNIT NO. = “UNIT” 


CZRJIDO, RPOG/5/6 FCTNL CT 
79 09 


CZRJIO.P11 


014350 
014354 


014420 
014420 
014424 


014464 
014464 


014466 
014472 
014476 


014504 


014510 
014514 
014520 
014526 
014530 


014532 
014536 


014556 


014570 
014576 


28-MAR- 


104401 
000420 


013746 
104405 
104401 
000421 


104401 
000417 


000000 


005037 
005237 
042737 


004737 


017700 


001423 
104102 


104401 
000407 


013746 
104405 
104401 
000402 


LR1 
:03 


014302 


004716 
014356 


014426 


047342 
004716 
177770 


041524 


165570 
043436 
010000 


014540 


004716 
014572 


MACY11 30A(1052) 
115 


004716 


002360 


«758%: 


74%: 


3;77$: 
76$: 


A 6 
25-MAY-79 10:30 PAGE 78 
CHECK ALL ADDRESS PLUG ADDRESSES 


:*CHANGE ADDRESS PLUG ON THE UNIT UNDER TEST 


TYPE ,69% 2 e TYPE ASCIZ STRING 
BR 68$ ;GET OVER THE ASCIZ 
-ASCIZ <15><12>/REMOVE ADDRESS PLUG ON DRIVE/ 


MOV @#UNIT,-(SP) ;GET THE UNIT UNDER TEST 


TYPDS ; TYPE IT OUT 
TYPE 71% ii TYPE ASCIZ STRING 
0 ;GET OVER THE ASCIZ 


BR 70$ 
-ASCIZ / REPLACE WITH NEXT HIGHER ADDRESS/ 


TYPE .73% +s TYPE ASCIZ STRING 
BR 72% GET OVER THE ASCIZ 
-ASCIZ <15><12>/PLUG - THEN PRESS CONTINUE/ 


HALT 

; HOUSEKEEPING 

CLR a#PRITEM ;CLEAR THE PREVIOUS wg NUMBER 
INC a#UNIT ;ADD ONE TO THE UNIT 

BIC #°C7,QM#UNIT ; TRUNCATE TO LOW ORDER 3 BITS 
JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


;*ATTEMPT TO ADDRESS THE NEW UNIT NUMBER 
MOV @RHDST,RO ;ATTEMPT TO ADDRESS THE NEW DRIVE NO. 


JSR PC ,a#PUTREG ; TAKE REG. SNAPSHOT IN CASE OF ERROR 
BIT WNED ,a#CS2 TEST FOR NON EXISTENT DRIVE 


BEQ 7$ ;CONTINUE IF ‘NED’ IS NOT SET = DRIVE 
;SHOULD BE EXISTENT ON THE BUSS 

ERROR 102 UNIT NOT AVAILABLE AFTER ADDRESS 
:PLUG REPLACED 

TYPE .75% ii TYPE ASCIZ STRING 

BR 74$ ;GET OVER THE ASCIZ 

-ASCIZ £18><12>/UNIT NUMBER/ 

MOV Q#UNIT,-(SP) ;GET THE BAD UNIT NUMBER 

TYPDS TYPE IT OUT 

TYPE .77$ :;TYPE ASCIZ STRING 


BR 76% :;GET OVER THE ASCIZ 
eASCIZ <15>«12>/ / 


SEQ 0077 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJ1D.P11 


014576 
014604 


014606 
014612 


014616 


014622 
014624 


014626 
014630 
014632 
014634 
014636 


014640 
014644 
014742 
014742 
014746 


015022 


28-MAR-79 


09:03 


MACY11 30A(1052) 
115 


023737 004716 004752 7$: 


001233 


013746 
052716 


012677 


000001 


104401 
000436 


104401 
000425 


002460 
000001 


165456 


014646 


014750 


N 6 
25-MAY-79 10:30 PAGE 79 
CHECK ALL ADDRESS PLUG ADDRESSES 


;*CHECK IF ALL UNIT NUMBERS HAVE BEEN TRIED 
CMP Q#UNIT,Q#INUNIT ; HAVE WE INCREMENTED BACK TO THE 
SORIGINAL UNIT NO. YET ? 


BNE 6$ :NO..DO NEXT ADDRESS PLUG 
SYES..CONTINUE WITH TESTS 


;*SET ‘VV"IN RHDS1 AFTER RESET FROM THE RECALIBRATE 
;*CAUSED BY PULLING THE ADDRESS PLUGS OUT 


MOV Q@#PKACK,-(SP)  ;GET READY TO MOVE COMMAND 


BIS #60, (SP) ;GET READY TO SET GO 
;WITHOUT INTERRUPT ENABLE 
MOV (SP)+,@RHCS1 :GO0 WITH 


322 IN RHCS1 FOR PACK ACKNOWLEDGE 
;WITH INTERRUPT DISABLED 


MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 ; SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR VV BIT TO SET 
RHDS1 ;WAIT FOR RHDS1 REGISTER 
VV ;WAIT FOR VV BIT IN RHDS1 REGISTER 
1. ;ALLOW 10 MICRO SECONDS 
1. VV MUST SET BETWEEN 

300 AND 20 MICRO SECONDS 
TYPE , 82% is TYPE ASCIZ STRING 
BR 81$ GET OVER THE ASCIZ 


SEQ 0078 


-ASCIZ <15><12><15><12>/ALL DISK DRIVES WHICH WERE POWERED UP WHEN THE PROGRAM/ 


TYPE , 84% 23 TYPE ASCIZ STRING 
OVER THE ASCIZ 


BR 83$ ;GET 
LASCIZ <15><12>/WAS STARTED MUST BE POWERED UP AGAIN/<15><12> 


CZRJIDO, RPOG/5S/6 FCTNL CTLRI 


CZRJ1D.P11 


3674 015022 
3675 015024 
3676 015030 


3678 015036 


3682 015042 
3684 015046 
3686 015052 
3688 015054 


3694 015062 
3695 015066 
3696 015070 


3698 015072 


3701 015074 


15102 
15106 


28-MAR-79 


000004 
012706 
012737 


004737 


004737 
104401 
000000 
013777 


004037 
002272 
004612 


000022 


013777 


09:03 


001000 
000016 


041524 


041604 


067033 


002422 


041672 


004606 


002422 
000001 


MACY11 30A(1052) 
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004604 


165216 


165164 


-SBTTL 
-SBTTL 
-SBTTL 


8 7 
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80 
CHECK ALL ADDRESS PLUG ADORESSES 


**DRIVE COMMAND TESTS** 


peeereeeeeeerereeeeee eee eee ee reeKeeAeeAAeterkKeeeereeTee ee 


:#TEST 16 


‘* 
°@ 
:* 


TST16: 


SCOPE 
MOV 
MOV 


JSR 


JSR 
TYPE 
HALT 
MOV 


NO OPERATION FUNCTION TEST 

ALL POSSIBLE REGISTERS ARE LEARED THEN A’'NOP’'=0 

1S GIVEN NO CHANGE SHOULD haPPEN 

ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A ‘‘NOP"’ 
1S GIVEN NO CHANGE SHOULD HAPPEN 


'WEARABBABASAALAAAASALAAAALASARSRASEARARSAR RRR RARER RRR RR RRR RRR RRR D SS SI 


STACK ,SP 
#16,04TSTNM 


PC ,a#CLDISK 


PC ,@#CHECKT 
»CPHALT 


Q@#NOPERA,@RHCS1 


RESET STACK 
; SAVE TEST NUMBER 


SET R1I-RHCS1, R2-RHCS2 

;R3-RHDS1, R4-RHERI 

;GIVE RH-11 INITIALIZE 

;SETUP UNIT NUMBER 

;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

;AND THAT NO STATUS BITS ARE STUCK = 1 
;CANNOT CONTINUE TESTING IF ANY OF 


By Bf ats SET OF BITS DON'T = ; 


;GET READY FOR NOPERA 
;NO OPERATION WITH O IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION 


;SAVE REGISTERS 

sRHWC 1S THE FIRST REGISTER SAVED 
STARTING ADDRESS CF WHERE 

; THE REGISTERS ARE SAVED 

;NUMBER OF REGISTERS 

;SAVED = 18. 


JSR 
RHWC 
SAVERE 


18. 


MOV 


MOV 
BIS 


RO, @#SAVER 


OMRP4VEC,ARPVEC 


a#NOPERA,-(SP) 
#G0, (SP) 


+4 RPO4 VECTOR ADDRESS 
10 "TIME 1" IF P-CLOCK IS PRESENT 
OR TO ‘TIME2* IF P=CLOCK 1S NOT PRESENT 


;*TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
:GET READY TC SET GO 


SEQ 0079 


Cc 7 
CZRJIDO, RPOG/5/6 FCTNL CTLR1 = MACYI1 — 25-MAY-79 10:30 PAGE 8&1 


CZRJID.P11 28-MAR-79 09:03 NO OPERATION FUNCTION TEST SEQ 0080 
3711 ;WITHOUT INTERRUPT ENABLE 
3712 015112 012677 165162 MOV (SP)+,@RHCS1 ;G0 WITH 
3715 3:0 IN RHCS1 FOR NO-OPERATION 
3714 WITH INTERRUPT DISABLED 
3715 
3716 
3717 
3718 015116 104413 WAT ;WAIT FOR RDY BIT TO SET 
3719 015120 002300 RHCS1 ;WAIT FOR RHCS1 REGISTER 
3720 015122 000200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
3721 015124 000001 te ;ALLOW 10 MICRO SECONDS 
3722 015126 000001 1. ;RDY MUST SET BETWEEN 
gis? ;00 AND 20 MICRO SECONDS 
3725 ;*NOW COMPARE REGISTERS BEFORE NO-OP COMMAND 
gist ;*WITH AFTER NO-OP COMMAND 
3728 015130 004037 042512 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
3729 ;PRESENT VALUE 
3730 015134 004612 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
3731 015136 002354 we TEST DATA STARTING FROM ‘RHWC" 
3732 015140 000022 18. 318. REGISTERS TO BE COMPARED 
3733 015142 015146 1$ ;RETURN TO 1$ ON ERROR 
gree 015144 015152 2$ ;RETURN TO 2$ ON NO ERROR 
3736 015146 104016 1$: ERROR 16 ;GIVING A NO-OP COMMAND 
3737 015150 000207 RTS PC ; CAUSED AN ERROR 
3738 ;NO REGISTERS SHOULD CHANGE 
3739 ;GOOD DATA GIVES REGISTER 
3740 ; CONTENTS BEFORE COMMAND 
3741 RECEIVED DATA GIVES REGISTER 
ert ; CONTENTS AFTER COMMAND 
374 








dD 7 
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CZRJ100, RPOL/S 76 FCTNL CTLRI 
CZRJ1D.P11 28-MAR-79 09:03 116 NO OPERATION FUNCTION TEST SEQ 0081 

3744 

sree >*NOW REPEAT TEST BY MOVING IN ALL POSSIBLE ONES 

aren 015152 23: 
3749 015152 004737 041524 JSR PC, ,a#CLDISK 7SET RI-RHCS1, R2-RHCS2 

3750 ;R3-RHDS1, R4-RHERI 

3751 sGIVE RH-11 INITIALIZE 

3752 ; SETUP yh NUMBER 

3753 015156 012700 002272 MOV #RHWC,RO ;ADDR. CF ADDR OF RHWC IN RO 
ghz 015162 012730 177777 MOV #177777,a(RO)*+ ;LOAD 177777 INTO RHWC 
les 015166 012730 177777 MOV #177777,a(RO)*+ ;LOAD 177777 INTO RHBA 
3758 015172 052730 043010 BIS #43010,a(RO)+ ;LOAD 43010 INTO RHCS2 

e023 015176 012730 001400 MOV #1400,a(RO)+ ;LOAD 1400 INTO RHCS1 
are) 015202 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER1 
eee 015206 012730 177777 MOV #177777,a(RO)+* ;LOAD 177777 INTO RHDST 
area 015212 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER2 
sien 015216 012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHOF 
4h 44 015222 012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHCA 
4a 015226 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER3 
hk :*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 

4 

3775 015232 010046 MOV ., RO,-(SP) :;PUSH RO ON STACK 
3776 015234 011446 MQ = @R4,- (SP) :SAVE RHER1 TO REINSTATE LATER 
3777 015236 011246 Mev. | @R2,-(SP) SAVE RHCS2 TO BE REINSTATED 
3778 “nif sAFTER ALL ATA BITS HAVE BEEN SET 
3779 015240 013700 004742 MOV a#TOTALAT,RO :GET DRIVES PRESENT 
3780 015244 005012 CLR aR2 CLEAR RHCS2 AND CARRY 
3781 015246 012705 000010 MOV #8. ,R5 ; COUNTER 
3782 015252 006000 87$: ROR RO ;GET BIT INTO CARRY 
3783 015254 103002 BCC 88% sBRANCH IF NO UNIT ON THIS BIT 
3784 015256 012714 177777 MOV #-1,aR4 : MOVE INTO. ERROR REGISTER 
3785 :T0 SET ATA BIT 
3786 015262 005212 88S: INC aRr2 : INCREMENT RHCS2 TO NEXT UNIT 
3787 015264 005305 DEC R5 > COUNT 
3788 015266 001371 BNE 87% ‘BRANCH IF 8 NOT DONE 
3789 015270 012612 MOV (SP)+,aR2 sREINSTATE RHCS2 
3790 015272 012614 MOV (SP)+,aR4 sREINSTATE RHER1 

3791 015274 012600 MOV (SP)+,RO ::;POP STACK INTO RO 

3792 015276 005720 TST (RO)+ :GET OVER PHAS IN RO 
390 
3795 015300 012730 177776 MOV #177776,a(R0)+* ;LOAD 177776 INTO RHMR 

3796 

797 
3798 015304 004737 041604 JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


3799 ;AND THAT NO STATUS BITS ARE STUCK = 1 


CZRJIDO, RPOG/5/6 FCTNL 
CZRJID.P11 


015310 


015314 
015316 


015344 
015350 


015354 


28-MAR-7 
104401 


000000 
013777 


004037 
002272 
004612 


000022 


013777 


013746 
052716 


012677 


104413 
002300 
000200 
000001 
000001 


005737 


042737 


043737 


004037 
002322 


CTLRI 


9 09:03 


067033 


002422 


041672 


004606 


002422 
000001 


164720 


004750 
004722 
100000 


004740 


042404 


MACY11 30A(1052) 
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164754 


164722 


004620 


004636 


5$: 


Ss Ff 
25-MAY-79 10:30 PAGE 


&3 


NO OPERATION FUNCTION TEST 


TYPE 


HALT 
MOV 


»CPHALT 


Q@#NOPERA,@RHCS1 


; CANNOT CONTINUE TESTING IF ANY OF 


;THE FIRST SET OF BITS DON'T = 1 
10P 


33 
:GET READY FOR NOPERA 
NO OPERATION WITH O IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-OP 


JSR 
RHWC 
SAVERE 


18. 


MOV 


MOV 
BIS 


RO ,@#SAVER 


@#RP4VEC,ARPVEC 


@#NOPERA,-(SP) 
#60, (SP) 


(SP)+,@RHCS1 


;SAVE REGISTERS 

sRHWC IS THE FIRST REGISTER SAVED 
;STARTING ADDRESS OF WHERE 

sTHE REGISTERS ARE SAVED 

s;NUMBER OF REGISTERS 

;SAVED = 18. 


iSET RPO4 VECTOR ADDRESS 
TO 'TIME1’ IF P-CLOCK IS PRESEN 
TOR TO ‘TIME2* IF P=CLOCK IS NOT "PRESENT 


;'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO 
;WITHOUT INTERRUPT ENABLE 
;GO WITH 

70 IN RHCS1 FOR NO-OPERATION 
;WITH INTERRUPT DISABLED 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 10 MICRO SECONDS 

;RDY MUST SET BETWEEN 

;00 AND 20 MICRO SECONDS 


> *CHANGE REGISTERS TO EXPECTED VALUES 


JSR 
RHDS1 


a#RH70 ;RUNNING ON AN RH7O ? 
5$ :1F NOT, SKIP NEXT 
a#NUNIT ; TESTING MORE THAN ONE DRIVE ? 
5$ ; SKIP NEXT IF SO 
WSC,QMSAVERE+6 ;CLEAR ‘SC’ IN RHCS1 
O#ATTENT ,OMSAVERE +24 ;CLEAR APPROPIATE ATA BITS 
;FOR WORKING DRIVE IN SAVED RHAS 
RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 


;CHANGE RHDS1 REGISTER 


SEQ 0082 









CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 





015430 
015432 
015434 


015436 


015442 
015444 
015446 
015450 
015452 


015454 
015456 


015460 


28-MAR-7 


000001 
000000 
100000 


004037 


004612 
002354 
000022 
015454 
015460 


104016 
000207 


9 09:03 


042512 





MACY11 30A(1052) 
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3$: 


4$: 


. F 
25-MAY-79 10:30 PAGE &%4 
NO OPERATION FUNCTION TESTI 


1 ;1 BIT/BITS TO BE CHANGED 
0 ;NEW VALUE OF ATA IS 0 
ATA ;CHANGE ATA BIT 


;*NOW COMPARE REGISTERS BEFORE NO-OP WITH 
;*AFTER NO-OP COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC TEST DATA STARTING FROM ‘RHWC' 
18. 318. REGISTERS TO BE COMPARED 
3$ ;RETURN TO 3$ ON ERROR 

4% RETURN TO 4$ ON NO ERROR 
ERROR 16 ;GIVING A NO-OP COMMAND 

RTS PC ;CAUSED AN ERROR 


NO REGISTERS SHOULD CHANGE 
;GOOD DATA GIVES REGISTER 
;CONTENTS BEFORE COMMAND 
RECEIVED DATA GIVES REGISTER 
;CONTENTS AFTER COMMAND 







SEQ 0085 


CZRJID0, RPOG/S/6 FCTNL 


CZRJID.P11 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 015460 
3891 015462 
3892 015466 
3893 
3894 015474 
3895 
3896 
3897 
3898 015500 
3899 
3900 015504 
3901 
3902 015510 
3903 
3904 
3905 
3906 015512 
3907 015516 
3908 
3909 015522 
3910 
3911 015526 
3912 015532 
3913 
3914 015536 
3915 
3916 015542 
3917 
3918 015546 
3919 
3920 015552 
$921 
3922 015556 
3925 
3924 015562 
3925 
3926 
3927 
3928 015566 
3929 015570 
3930 015572 
3931 
3932 015574 
3933 015600 
3934 015602 
3935 015606 
3936 015610 
3937 015612 


CTLRI 


28-MAR-79 09:05 


000004 
012706 
012737 


004737 


004737 
104401 
000000 


012700 
012730 


012730 


052730 
012730 


012730 
012730 
012730 
012730 
012730 
012730 


o-oooo COO 


001000 
000017 


041524 


041604 
067033 


002272 
177777 


177776 


043010 
001400 


000000 
177777 
000000 
177777 
177777 
000000 


004742 
000010 


177777 


MACY11 30A(1052) 
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004604 
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DRIVE CLEAR 


;teeerrererererereererererrerererereeereneeeeeeeteteneetereteTee 


SSTEST 17 DRIVE CLEAR 
ie ALL WRITE BITS OF ALL REGISTERS ARE FILLED 
;* WITH ONES EXCEPT GO,CLR,1E,PAT,MCPE,UPE 
3* THEN A DRIVE CLEAR IS GIVEN 
;* THEN ALL REGISTERS ARE CHECKED TO HAVE APPROPIAVE VALUE 
peter eererererrerererereerereeetereeteeneeateneneneneaetereteeeee 
TST17: SCOPE 
MOV #STACK,SP ;RESET STACK 
MOV #17,aa¢1STNM ;SAVE TEST NUMBER 
JSR PC ,a#CLDISK ;SET R1-RHCSI, pte 
;R3-RHDSI, R4-RHER 
GIVE RH-11 initia ize 
;SETUP UNIT NUMBER 
JSR PC ,@#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,vV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ~CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
s THE FIRST SET OF BITS DON'T = 1 
HALT STOP 
s*WRITE ALL WRITABLE REGISTER BITS 
MOV #RHWC,RO sADDR. OF ADDR. OF RHWC IN RO 
MOV neeePr, a(RO)* ;LOAD 177777 INTO RHWC 
MOV #177776,a(RO0)* ;LOAD 177776 INTO RHBA 
BIS #43010,a(RO)+ sLOAD 43010 INTO RHCS2 
MOV #1400,a(RO)+ ;LOAD 1400 INTO RHCS1 
MOV #0,a(RO)+ ;LOAD 0 INTO RHERI 
MOV #177777,a(RO)* ;LOAD 177777 INTO RHDST 
MOV #0,a(RO)+ ;LOAD 0 INTO RHER2 
MOV #177777,a(RO)+ ;LOAD 177777 INTO RHOF 
MOV #177777,a(RO)*+ ;LOAD 177777 INTO RHCA 
MOV #0,a(RO)+ ;LOAD 0 INTO RHER3S 
:*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV OR4,-(SP) ;SAVE RHER1 TO REINSTATE LATER 
MOV aR2,-(SP) ;SAVE RHCS2 TO BE REINSTATED 
;AFTER ALL ATA BITS HAVE BEEN SET 
MOV a#TOTALAT,RO ;GET DRIVES PRESENT 
CLR aR2 ;CLEAR RHCS2 AND CARRY 
MOV #8. ,R5 ; COUNTER 
84$: ROR RO ;GET BIT INTO CARRY 
BCC 85$ ;BRANCH IF NO UNIT ON THIS BIT 
MOV #-1,aR4 sMOVE INTO ERROR REGISTER 


;10 SET ATA BIT 


CZRJIDO, RPO4/5/6 FCTNL 


CZRJID.P11 


015640 
015646 


015654 
015660 


015664 


oo CcCOCOoOCOoOOoOOo 
et eed ed ed ed ed 
ww WOMAN 


—_ 


015750 


CTLRI 


28-MAR-79 09:03 


005212 


013746 
052716 


012677 


104413 


000001 


004037 


005037 
053737 


005737 
001021 
004037 
002276 


000003 


177776 


164470 
004606 


002430 
000001 


164410 


041426 
041426 
004616 


004716 
004750 


042404 


MACY11 30A(1052) 
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004654 
164412 


004616 


85$: 


H 7 
gah 10:30 PAGE 8&6 


DRIVE 

INC aR2 J ge RHCS2 TO NEXT UNIT 
DEC R5 ; COUN 

BNE 84% ‘BRANCH 1f 8 NOT DONE 

MOV (SP)+,aR2 SREINSTATE RHCS2 

MOV (SP) +, aR4 SREINSTATE RHER1 

MOV (SP)+,RO ;;POP STACK INTO RO 

TST (RO)+ GET OVER PHAS IN RO 


MOV #177776,a(RO)* ;LOAD 177776 INTO RHMR 


MOV @RHCC ,AMSAVERE+42 ;SAVE RHCC IN SAVERE TABLE 
MOV Q#RPGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
;T0 ‘TIME1’ IF P-CLOCK IS PRESENT 
;OR TO 'TIME2* IF P-CLOCK IS NOT PRESENT 
;*TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


é 


MOV @ADCLEAR,-(SP) ;GET READY TO MOVE COMMAND 
BIS #60, (SP) ;GET READY TO SET GO 
;WITHOUT INTERRUPT ENABLE 
MOV (SP)+,@RHCS1 ;GO WITH 
710 IN RHCS1 FOR DRIVE CLEAR 
;WITH INTERRUPT DISABLED 


wl ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY :WAIT FOR RDY BIT IN RHCS1 REGISTER 
.. ;ALLOW 10 MICRO SECONDS 

1. ;RDY MUST SET BETWEEN 


3:00 AND 20 MICRO SECONDS 
;*NOW LOAD ‘SAVERE' REGISTER SNAPSHOT WITH EXPECTED VALUES 
JSR RO,a#F ILLRE :MOV 177777 INTO SAVED RHWC 


wC ; SAVED REGISTER TO CHANGE 
177777 ;DATA 
JSR RO,a#F ILLRE :MOV 177776 INTO SAVED RHBA 
a 6 ety REGISTER TO CHANGE 


:DAT 
CLR OMSAVERE+4 7CL EAR LOCATION FOR RHCS2 
BIS QVUNIT a#SAVERE*+4; PUT UNIT # BACK IN THE SAVED RHCS2 


TST a#RH70 ;RUNNING ON AN RH70 CONTROLLER ? 
BNE 8$ :1F SO SKIP NEXT RH11 CODE 

JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
RHCS2 ;CHANGE RHCS2 REGISTER 

3 33 BIT/BITS TO BE CHANGED 


SEQ 0085 


CZRJ1D0O, RPOG/5/6 FCTNL CTLRI 
CZRJIO.P11 


64 


016004 
016010 


016012 


oooo coosocoocccsco 
a 
— 
= 


ee 
ooo GFooceoco 


o 
~w 
os 


016142 


28-MAR-79 


001000 


004037 
002300 


000001 


000416 


004037 
002276 


000002 


001003 
042737 


004037 


000000 
013746 


043716 


000400 


09:03 


042404 


042404 


004722 
100000 
041426 


041426 
041426 
041426 
041426 
041426 
004742 
004740 


004636 
041426 


MACY11 30A(1052) 
117 


004620 


8$: 


3$: 


2 
oo ae 79 «10:30 PAGE 8&7 


DRIVE CLEAR 


JSR RO, @#CHREG 


BR 9$ 


JSR RO,@#CHREG 


TST — 
BIC WSC ,A#SAVERE +6 
JSR RO,a#F ILILRE 


JSR RO, a#F ILLRE 
JSR RO,a@#F ILLRE 


JSR RO, a#F ILLRE 


;NEW VALUE OF IR IS 1 
;CHANGE IR BIT 

:NEW VALUE OF i Is 1 
;CHANGE BAI BIT 

;NEW VALUE OF MXF IS 1 
;CHANGE MXF BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


;1 BIT/BITS TO BE gee 
;NEW VALUE OF SC IS ! 
;CHANGE SC BIT 

;SKIP NEXT RH70 CODE 


; CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS2 REGISTER 


;2 BIT/BITS TO BE CHANGED 
;NEW VALUE OF IR IS 1 

;CHANGE IR BIT 

NEW VALUE OF BA] 1S 1 

;CHANGE BAI BIT 

; TESTING MORE THAN ONE DRIVE ? 
SKIP NEXT IF SO 

CLEAR *SC* IF NOT 


;MOV 0 INTO SAVED RHERI 
dent y REGISTER TO CHANGE 


:D 
;MOV 17437 INTO SAVED RHDST 
4 ry REGISTER TO CHANGE 


:MOV 0 INTO SAVED RHER2 
: SAVED REGISTER TO CHANGE 


:DATA 
;MOV 116000 INTO SAVED RHOF 
: SAVED REGISTER TO CHANGE 


116000 : 

JSR RO, asf ILLRE “MOV 1777 INTO SAVED RHCA 

RHCA “SAVED REGISTER TO CHANGE 

1777 DATA 

JSR RO, a#FILLRE “MOV 0 INTO SAVED RHER3 

RHER3 : SAVED REGISTER TO CHANGE 

MOV a#TOTALAT,-(SP) GET ALL BITS OF DRIVE & PRESENT 
3 IN RH 

BIC QWATTENT, (SP) :CLEAR WORKING DRIVE BIT 

MOV (SP)+, aWSAVERE*24 ;MOVE THIS INTO RHAS POSITION 


JSR RO, a#F ILLRE 


MOV 400 INTO SAVED RHMR 
Joey REGISTER TO CHANGE 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
28-MAR-79 09:05 


CZRJIO.P11 


016144 
016150 
016152 


016154 


016216 
016220 
016222 


016224 
016230 


016240 


016242 
016244 


016246 


004037 
002322 
010700 
013737 


013737 


004037 
0 


000000 


004037 
002300 


000001 


000001 
000010 


004037 
004612 


016246 


104017 
000207 


041426 


002406 
002410 


041426 


041426 


042404 


042512 


MACY11 350A(1052) 
117 


004644 4%: 


004646 


5$: 


6$: 


$7 
salen eee -79 10:30 PAGE 8&8 


CLEAR 
JSR RO,a#F ILLRE ;MOv 10700 INTO SAVED RHDS1 
RHDS1 ;SAVED REGISTER TO CHANGE 
10700 DATA 


MOV avdl, QM SAVERE+ 52° i DRIVE TYPE INTO RHDT 
OSITION OF SAVRE TABLE 
MOV @aSNn, aN SAVERE? 34 HOVE SERIAL NUMBER INTO RHSN 
;POSITION OF SAVERE TABLE 


JSR RO, aMF ILLRE sMOV 0 INTO SAVED RHECI 

we tori REGISTER TO CHANGE 

JSR RO, aMF ILLRE MOV 0 INTO SAVED RHEC2 

RHEC2 sSAVED REGISTER TO CHANGE 

0 : TA 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 s CHANGE RHCS1 REGISTER 

1 31 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF PAR IS 1 

PAR ; CHANGE PAR BIT 


>*NOW THAT SAVERE TABLE HAS BEEN LOADED WITH 
;*EXPECTED VALUES, THE REGISTERS WILL BE COMPARED 
;*WITH SAVERE TABLE 


JSR RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 

wC TEST DATA STARTING FROM *RHWC* 
18. 318. REGISTERS TO BE COMPARED 
5$ ;RETURN TO 5$ ON ERROR 

6% ;RETURN TO 6$ ON NO ERROR 
ERROR 17 ;DRIVE CLEAR COMMAND 

RTS PC ;GAVE AN ERROR 


;GOND DATA HAS WHAT SHOULD 
;BE IN REGISTER AFTER A 
;DRIVE CLEAR 

;RECEIVED DATA HAS WHAT 

; THE REGISTER ACTUALLY 

; CONTAINED 


SEQ 0087 


CZRJIDO, RPOG/5/6 FCINL CTLRI 
CZRJ1IO.P11 


016246 
016250 
016254 


016262 


28-MAR-79 


000004 
012706 
012737 


004737 


005737 


000402 


000137 


104401 
000407 


09:03 


001000 
000020 


041524 


004724 
000042 
001100 


017012 
016324 


MACY11 30A(1052) 
117 


004604 


kK 7 
25-MAY-79 10:30 PAGE 8&9 
DRIVE CLEAR SEQ 0088 


marie | tummies ct eo 


:#TEST 20 READ~1N-PRESE 


eeaeeeeceeseeeesneeeeeeeene: 


If STARTING ADDRESS 520 1S USED THIS TEST WILL NOT BE PERFORMED 


1F THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


If NO ACT=-11 MONITOR IS PRESENT THEN 
THIS TEST 1S PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


THIS TESTS THE READ-IN-PRESET COMMAND 

FIRST THE DRIVE 1S POWERED DOWN AND UP IN ORDER TO 
RESET VV-BIT #6 IN RHDS1 

THEN ALL WRITE BITS OF ALL REGISTERS ARE FILLED 
WITH ONES EXCEPT GO,CLR,1E,PAT,MCPE ,UPE 

ATA FOR DRIVE UNDER TEST IS MADE = 0 


THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 

THEN ALL REGISTERS ARE TESTED 

THE FOLLOWING SHOULD BE THE REGISTER CONTENTS 

RHCA = 0, RHDST = 0, RHOF SHOULD HAVE 

FMT22 = 0, EC] = 0, HCI = 0, RHDS1 SHOULD HAVE vv = 1 
ALL OTHER REGISTERS SHOULD BE UNCHANGED 


speeeeeeeeerererterereerereteeerererreeeeRAeReeKe eee 


TST20: 


1$: 
2$: 


37658: 
64$: 


SCOPE 

MOV #STACK,SP ;RESET STACK 

MOV #20,Q#TSTNM SAVE TEST NUMBER 

JSR PC, ,a#CLDISK 7SET R1-RHCS1, R2-RHCS2 


7R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


:*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 


TST O#NOPUSH ;1S THIS A 220 START ? 

BNE 1$ SKIP THIS TEST IF SO 

TST aa4e :MONITOR (ACT tes RETURN ADDRESS ? 
BNE 1$ SKIP THIS TES 

TST a#$PASS FIRST PASS ? 

BNE 1$ :SKIP THIS TEST IF NOT 

BR 2% ;CONTINUE WITH THIS TEST 

JMP TS¥Z)— sg JUMP 10 NEXT TEST eceeceeeeececese ) 
TYPE ,605% ie TYPE ASCIZ STRING 


BR 64% sGET OVER THE ASCI2Z 
eASCIZ <15>«<12>/STOP DRIVE / 


Ll 7 
CZRJIDO, RPOG/5/6 FCTINL CTLR1 = MACYI1 — 25-MAY-79 10:30 PAGE 90 


CZRJ1D.P11 28-MAR-79 09:05 READ-IN-PRESET SEQ 0089 
4153 016342 013746 004716 MOV Q@#UNIT,-(SP) ;GET UNIT UNDER TEST 
4154 016346 104405 T¢PDS ;TYPE IT OUT 
4155 016350 104401 001225 TYPE , SCRLF 
4156 016354 032713 010000 3$: BIT #MOL ,ARS MOL WILL BE HIGH TILL STOP IS HIT 
ht 016360 001375 BNE 3$ ;WAIT TILL STOP IS HIT 
4159 016362 104401 016370 TYPE ,67% 3 TYPE ASCIZ STRING 
4160 016366 000406 BR 66% 3;GET OVER THE ASCIZ 
4161 3367$: .ASCIZ /START DRIVE/ 
brs 016404 66$: 
4164 016404 013746 004716 MOV @#UNIT,-(SP) ;GET UNIT UNDER TEST 
4165 016410 104405 TYPOS sTYPE IT 
rhs 016412 104401 0012235 TYPE » SCRLF 
4168 016416 032713 010000 4$: BIT #MOL ,aR3 ;MOL WILL BE LOW TILL FILE READY 
ep 016422 001775 BEQ 4$ ;WAIT TILL FILE READY 
4171 016424 004737 041524 JSR PC, ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
4172 ;R3-RHDS1, R4-RHERI 
4173 GIVE RH-11 INITIALIZE 
4174 ; SETUP UNIT NUMBER 
4175 016430 004737 041562 JSR PC ,a#CHECK CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
4176 ;AND THAT NO STATUS BITS ARE STUCK = 1 
4177 016434 104401 067033 TYPE ,CPHALT ;CANNOT CONTINUE TESTS IF THEY AREN'T 
4178 016440 000000 HALT ; STOP 
ete 016442 012700 002272 MOV #WRHWC ,RO ;ADDR. OF ADDR. OF RHWC IN RO 
4 
4181 
rt 1 s*NOW INITIALIZE ALL THE REGISTERS 
rt + 016446 012730 177777 MOV #177777,a(RO)+* ;LOAD 177777 INTO RHWC 
4 
ie 016452 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHBA 
4 
4188 016456 052730 043010 BIS #43010,a(RO)+  ;LOAD 43010 INTO RHCS2 
rt 4 016462 012730 001400 MOV #1400,a(RO)+ ;LOAD 1400 INTO RHCS1 
4 
th 016466 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER1 
4 
atte 016472 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHDST 
4194 
Hh 016476 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER2 
4196 
44 016502 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHOF 
4 
rth. 016506 012730 177777 MOV #177777,a(RO)+* ;LOAD 177777 INTO RHCA 
4 
oo; 016512 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHERS 
4 
ocr :*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
4204 
4205 016516 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
4206 016520 011446 MOV OR4,-(SP) ;SAVE RHER] TO REINSTATE LATER 
4207 016522 011246 MOV QR2,-(SP) ;SAVE RHCS2 TO BE REINSTATED 


4208 ;AFTER ALL ATA BITS HAVE BEEN SET 


a 7 
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CZRJID.P11 © 28-MAR-79 09:03 120 READ-IN-PRESET SEQ 0090 
4209 016524 013700 004742 MOV Q#TOTALAT,RO GET DRIVES PRESENT 
4210 016530 005012 CLR aR2 :CLEAR RHCS2 AND CARRY 
4211 016532 012705 000010 MOV #8. ,R5 : COUNTER 
4212 016536 006000 88$: ROR RO [GET BIT INTO CARRY 
4213 016540 103002 BCC 89$ :BRANCH IF NO UNIT ON THIS BIT 
4214 016542 012714 177777 MOV #-1,aR4 :MOVE INTO ERROR REGISTER 
4215 :10 SET ATA BIT 
4216 016546 005212 89$: INC aR2 S INCREMENT RHCS2 TO NEXT UNIT 
4217 016550 005305 DEC R5 : COUNT 
4218 016552 001371 BNE 88$ :BRANCH IF 8 NOT DONE 
4219 016554 012612 MOV (SP)+,aR2 :REINSTATE RHCS2 
4220 016556 012614 MOV (SP)+,aR4 :REINSTATE RHER1 
4221 016560 012600 MOV (SP)+,RO :;POP STACK INTO RO 
4222 016562 005720 TST (RO)+ :GET OVER PHAS IN RO 
4224 
4225 016564 012730 177776 mov #177776,a(RO)+ ;LOAD 177776 INTO RHMR 
4 
4227 
4228 016570 013777 004740 163520 MOV @WATTENT,@RHAS ;CLEAR WORKING DRIVE ‘ATA' 
4229 016576 013777 002462 163474 MOV @WREADIN,ARHCS1 ;GET READY FOR READIN 
4230 :READ IN WITH 20 IN RHCS1 
1332 
4233 :*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
4234 
4235 016604 004037 041672 JSR RO. aMSAVER ;SAVE REGISTERS 
4236 016610 002272 RHWC :RHWC 1S THE FIRST REGISTER SAVED 
4237 016612 004612 SAVERE ZSTARTING ADDRESS OF WHERE 
4238 :THE REGISTERS ARE SAVED 
4239 016614 000022 18. [NUMBER OF REGISTERS 
4240 :SAVED = 
424 
4242 016616 013777 004606 163442 MOV QWRPGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
4243 TO 'TIME1' IF P=CLOCK IS PRESENT 
4246 SOR TO 'TIME2" IF P=CLOCK IS NOT PRESENT 
4245 :'TIME' WILL ONLY SAVE 
4246 :CURRENT CYLINDER ADDRESS 
4247 ;AND LOOK AHEAD REGISTERS 
424 
4249 016624 005737 004750 TST awRH70 :RUNNING ON AN RH70 CONTROLLER ? 
4250 016630 001411 BEQ 7$ :SKIP NEXT FOR RH70 IF NOT 
4251 
4252 016632 013746 002462 MOV AMREADIN,-(SP) :GET READY TO MOVE COMMAND 
4253 016636 052716 000001 BIS #G0, (SP) :GET READY TO SET GO 
4254 :WITHOUT INTERRUPT ENABLE 
4255 016642 012677 163432 MOV (SP)+,@RHCS1  3GO WITH 
4256 :20 IN RHCS1 FOR READ IN 
4257 ;WITH INTERRUPT DISABLED 
4258 
4259 016646 011100 MOV aR1,R0 ;SAVE RHCS1 DURING ABOVE OPERATION 
4260 016650 011305 MOV AR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
4261 016652 000406 BR 8S SKIP NEXT FOR RH11 
4262 
4263 016654 7$: 
4264 


CZRJ1DO, RPOG/5/6 FCTNL 
28-MAR-79 


CZRJID.P11 
4265 016654 
4266 016660 
4267 
4268 016664 
4269 
4270 
4271 
4272 016670 
4273 
4274 016670 
4275 016672 
4276 016674 
4277 016676 
4278 016700 
4279 
4280 
4281 
4282 
4283 016702 
4284 016706 
4285 016710 
4286 016712 
4287 016716 
4288 016720 
4289 
4290 016722 
4291 016726 
4292 
4293 016730 
4294 016732 
4295 016734 
4296 016736 
4297 016740 
4298 016742 
4299 016744 
4300 
4301 016746 
4302 016752 
4303 
4304 016754 
4305 016756 
4306 016760 
4307 
4308 
4309 
4310 
4311 
4312 
4313 016762 
4314 
4315 016766 
4316 016770 
4317 016772 
4318 016774 
4319 016776 


013746 
052716 


012677 


104413 
002322 


000001 


004037 
002312 


0 
000000 


004037 
002310 


000003 


002000 


004037 
002322 


000001 


000001 
000100 


004037 
004612 


017004 


CTLR1 =6MACYI1 30A(1052) 
09:03 720 


002462 
000101 


163410 


8$: 


041426 


041426 


042404 


042404 


042512 





n 7 
25-MAY-79 10:30 PAGE 92 
READ-IN-PRESET SEQ 0091 


MOV @#READIN,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO'IE, (SP) ;GET READY TO SET ‘GO* AND 


ZENABLE INTERRUPT 


IT 
itt IN RHCS1 FOR READ IN 
WITH INTERRUPT ENABLED 


MOV (SP)+,@RHCS1 


WAT ;WAIT FOR vv BIT TO SET 

RHDS1 WAIT FOR RHDS1 REGISTER 

VV ;WAIT FOR VV BIT IN RHDS1 REGISTER 
1. ;ALLOW 10 MICRO SECONDS 

1. ;VV MUST SET BETWEEN 


;00 AND 20 MICRO SECONDS 
;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHCA 

RHCA : SAVED REGISTER TO CHANGE 

JSR RO, a#F ILLRE ‘MOV 0 INTO SAVED RHDST 

RHOS ST ; SAVED REGISTER TO CHANGE 

JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
RHOF “CHANGE RHOF REGISTER 

3 :3 BIT/BITS TO BE CHANGED 

0 “NEW VALUE OF FMT22 1S 0 

FMT22 :CHANGE FMT22 BIT 

0 ‘NEW VALUE OF ECI IS 0 

ECI ‘CHANGE ECI BIT 

0 ‘NEW VALUE OF HCI IS 0 

HC] “CHANGE HCI BIT 

JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
RHDS1 “CHANGE RHDS1 REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

1 ‘NEW VALUE OF vv IS 1 

vv “CHANGE VV BIT 


:*NOW THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
;*THE EXPECTED VALUE AFTER A READ~IN COMMAND 
;*COMPARISONS ARE MADE 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC ;TEST DATA STARTING FROM ‘RHWC* 
18, 718. REGISTERS TO BE COMPARED 
5$ :RETURN TO 5$ ON ERROR 

6$ ;RETURN TO 6$ ON NO ERROR 


CZRJIDO, RPOG/5S/6 FCTNL 
CZRJ1D.P11 28-MAR-79 


4321 017000 104020 
oes 017002 000207 


43 
4336 017004 012737 


L MACY11 30A(1052) 
120 


CTLRI 
09:03 


5$: 


177777 047342 68: 


25-MAY-79 


READ-1N-PRESET 


ERROR 
RTS 


MOV 


20 
PC 


#-1,aePRITEM 


B 8 
10:30 PAGE 95 


SEQ 0092 
READ IN COMMAND GAVE AN 
; ERROR 


;GOOD DATA HAS WHAT SHOULD 
BE IN REGISTER AFTER A 


;READ-1N COMMAND 
RECEIVED DATA HAS WHAT 


; THE REGISTER gent CONTAINED 
: THE FOLLOWING SHOULD 

= BE THE g tt CONTENTS 
;RHCA=0, = 0 

; RHOF “SHOULD “HAVE FMT22 = 0, 

“HCI = = 0, EC 

*RHDS1 SHOULD HAVE v=] 

sALL Oi HER BITS SHOULD 


BE UNCHANGED 
;CLEAR PREVIOUS ITEM NUMBER 


C 8 
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CZRJ1D. Pil 28-MAR-79 09:03 120 READ-IN-PRESET 
4337 
4338 
4339 ppeeeeeeeeecererrerererererererereerererereteeereeeeeeeeeKeTeeeee 
rE :*TEST 21 READ-IN-PRESET 
4342 :® THIS TEST 1S THE SAME AS THE te a EXCEPT 
rh 3@ THAT IT DOES NOT TEST THE SETTING OF 
“* 
4345 id THIS TEST 1S HERE BECAUSE IF ACT-11 MONITOR IS PRESENT 
4346 id THEN THE PREVIOUS TEST WILL NOT BE PERFORMED 
4347 7® THIS TESTS THE READ-IN-PRESET COMMAND 
4348 ;* ALL WRITE BITS OF ALL REGISTERS ARE FILLED 
4349 7* WITH ONES EXCEPT GO,CLR,IE,PAT,MCPE ,UPE 
rk :* ATA FOR DRIVE UNDER TEST IS MADE = 0 
+? 
4352 7* THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 
4353 :* THEN ALL REGISTERS ARE TESTED 
4354 :* THE FOLLOWING SHOULD BE THE REGISTER CONTENTS 
4355 ;@ RHCA = 0, RHDST = 0, RHOF SHOULD HAVE 
4356 :* FMT22 = 0, EC] = 0, HCI = 0, RHDS1 SHOULD HAVE wv = 1 
rh tH :* ALL OTHER REGISTERS SHOULD BE UNCHANGED 
czeq ppeeeeeeeeerertereeereererrereettteeeeteeeeeK eee ee TTA eee e TAT 
4360 017012 000004 TST21: SCOPE 
4361 017014 012706 001000 MOV MSTACK,SP sRESET STACK 
rh + 017020 012737 000021 004604 MOV #21,Q41TSTNM ;SAVE TEST NUMBER 
4 
4364 017026 004737 041524 JSR PC,@#CLDISK 7SET R1I“-RHCS1, R2-RHCS2 
4365 R3- “RHDS1, R4-RHERI 
4366 GIVE RH-11 INITIALIZE 
4367 : SETUP UNIT NUMBER 
4368 017032 004737 041562 JSR PC ,a#CHECK ;CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
4369 ;AND THAT NO STATUS BITS ARE STUCK = 1 
4370 017036 104401 067033 TYPE ~CPHALT ;CANNOT CONTINUE TESTS IF THEY AREN'T 
4371 017042 000000 HALT ; STOP 
ry 017044 012700 002272 MOV #WRHWC,RO ;ADDR. OF ADDR. OF RHWC IN RO 
4 
4374 
a s*INITIALIZE ALL THE REGISTERS 
4576 
<tr 017050 012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHWC 
4 
rts 017054 012730 177777 MOV #177777,a(RO)*+ ;LOAD 177777 INTO RHBA 
4 
4381 017060 052730 043010 BIS #43010,a(R0)+  ;LOAD 43010 INTO RHCS2 
4 017064 012730 001400 MOV #1400,a(R0)+ ;LOAD 1400 INTO RHCS1 
4 
oor 017070 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHERI 
4 
out 017074 012730 177777 MOV #177777,a(R0)+ ;LOAD 177777 INTO RHDST 
4 
oo 017100 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER2 
4 
ry 017104 012730 177777 MOV #177777,a(R0)* ;LOAD 177777 INTO RHOF 
4391 


4392 017110 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHCA 








CZRJIDO, RPOG/5/6 FCTNL CTLRI 


CZRJ1D.P11 
4393 
4394 017114 
4395 
4396 017120 
4397 017124 
4398 
4399 
4400 017130 
4401 017136 
4402 
4403 
4404 
4405 
4406 
4407 017144 
4408 017150 
4409 017152 
4410 
44i1 017154 
4412 
4413 
4414 017156 
4415 
4416 
4417 
4418 
4419 
4420 
4421 017164 
4422 017170 
4423 
4424 017172 
4425 017176 
4426 
4427 017202 
4428 
4429 
4430 
4431 017206 
4432 017210 
4433 017212 
6434 
4435 017214 
4436 
4437 017214 
4438 017220 
4439 
4440 017224 
4441 
4442 
4443 
4444 017230 
46445 
4446 017230 
4447 017232 
4448 017234 


28-MAR-79 


012730 


004037 
002272 
004612 


000022 


013777 


005737 
001411 


013746 
052716 


012677 


013746 
052716 


012677 


104413 
002300 
000200 


09:03 

000000 
177777 
177776 


004740 
002462 


041672 


004606 


004750 
002462 
000001 
163072 


002462 
000101 


163050 


MACY11 30A(1052) 
T21 


163102 


9$: 


10$: 
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25-MAY-79 10:30 PAGE 95 
READ-1N-PRESET 
Mov #0,a(RO)+ :LOAD 0 INTO RHER3 
MOV #-1,a(RO)+ sCLEAR ALL BITS OF RHAS 
MOV #177776,a(R0)* LOAD 177776 INTO RHMR 


MOV QWATTENT,QRHAS ;CLEAR WORKING DRIVE ‘ATA’ 
MOV Q@#READIN,@RHCS1 ;GET READY FOR READIN 
;READ IN WITH 20 IN RHCS1 
;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 


JSR RO, @#SAVER ;SAVE REGISTERS 


RHWC ;RHWC 1S THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 

; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 

;SAVED = 18. 


MOV O#RPGVEC ,ARPVEC 47¥ RPO4 VECTOR ADDRESS 
:TO0 "TIME1' IF P-CLOCK IS PRESEN 
‘OR TO 'TIME2’ iF P-CLOCK IS NOT " PRESENT 
:'TIME* WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


TST a#RH70 ;RUNNING ON AN RH70 CONTROLLER ? 
BEQ 9% SKIP NEXT IF NOT 
MOV @M#READIN,-(SP) ;GET READY TO MOVE COMMAND 


BIS #G0, (SP) ;GET READY TO SET 60 
;WITHOUT INTERRUPT ENABLE 
MOV (SP)+,@RHCS1 G0 WITH 
320 IN RHCS1 FOR READ IN 
;WITH INTERRUPT DISABLED 


MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MCV OR3,R5 : SAVE RHDS1 DURING ABOVE OPERATION 
BR 10$ ;SKIP NEXT RH11 CODE 


MOV Q@#READIN,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!IE,(SP) ;GET READY TO SET ‘GO* AND 
ENABLE INTERRUPT 
MOV ($P)+,@RHCS1 :G0 WITH 
320 IN RHCS1 FOR READ IN 
WITH INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 ;WALT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 


SEQ 0094 
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CZRJ1D.P11 28-MAR-79 09: 03 


4449 017236 000001 
4450 017240 000001 


4451 

4452 

4453 

4454 

4455 017242 004037 041426 
4456 017246 002312 

4457 017250 000000 

4458 017252 004037 041426 
4459 017256 002304 

eat 017260 000000 

4462 017262 004037 042404 
4463 017266 002310 

4464 

4465 017270 000003 

4466 017272 000000 

4467 017274 010000 

4468 017276 000000 

4469 017300 004000 

4470 017302 000000 

4471 017304 002000 

4472 

4473 017306 004037 042404 
4474 017312 002322 

4475 

4476 017314 000001 

4477 017316 000001 

4478 017320 000100 

4479 

4480 

4481 

4482 

4483 

4484 


4485 017322 004037 042512 
4487 017326 004612 


4491 017336 017344 


4493 017340 104020 
017342 000207 


MACY11 30A(1052) 
T21 


5$: 
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25-MAY-79 10:30 PAGE 96 


READ-IN-PRESET 


Vie 
1. 


;ALLOW 10 MICRO SECONDS 
;RDY MUST SET BETWEEN 
;00 AND 20 MICRO SECONDS 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO,a#FILLRE 
RHCA 


0 
JSR RO,@#F ILLRE 
— 


JSR RO, a#CHREG 
RHOF 

3 

0 

FMT22 

0 

ECI 

0 

HCl 


JSR RO, a#CHREG 
RHDS1 


1 
1 
VV 


;*NOW THAT SAVERE TABLE 


MOV 0 INTO SAVED RHCA 
ary REGISTER TO CHANGE 


0 
;MOV 0 INTO SAVED RHDST 
dmg REGISTER TO CHANGE 


;CHANGE BITS IN SAVED REGISTER 
; CHANGE RHOF REGISTER 


33 BIT/BITS TO BE CHANGED 
NEW VALUE OF FMT22 IS 0 
;CHANGE FMT22 BIT 

;NEW VALUE OF EC] IS 0 
;CHANGE EC] BIT 

;NEW VALUE OF HCI IS 0 
;CHANGE HCI BIT 


:CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF vv IS 1 
;CHANGE VV BIT 


WITH SAVED REGISTERS HAVE 


7*THE EXPECTED VALUE AFTER A READ-IN COMMAND 


> *COMPARISONS ARE MADE 


JSR RO, a#COMREG 


ERROR 20 
RTS PC 


;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

;GOOD DATA SAVED IN "SAVERE’ 
TEST DATA STARTING FROM ‘RHWC’ 
718. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO E®ROR 


;READ-IN COMMAND GAVE AN 
; ERROR 


2. 

:GOOD DATA HAS WHAT SHOULD 
;BE IN REGISTER AFTER A 
;READ-IN COMMAND 

sRECEIVED DATA HAS WHAT 

; THE REGISTER ACTUALLY CONTAINE 
s THE FOLLOWING SHOULD 

;BE THE REGISTER CONTENTS 
;RHCA = 0, RHDST = 0 

:RHOF SHOULD HAVE FMT22 = 
sHCI = 0, EC] = 0, 


SEQ 0095 
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4505 ;RHDS1 SHOULD HAVE vv = 1 
4506 sALL OTHER BITS SHOULD 
4507 ;BE UNCHANGED 

4508 017344 6$: 


CZRJ1D0, RPO4/5/6 FCTNL 


CZRJ1ID.P11 
4509 
4510 017344 
4511 017350 
4512 017352 
4513 017354 
4514 017360 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 017360 
4524 017362 
4525 017366 
4526 
4527 017374 
4528 017400 
4529 017406 
4530 
4531 
4532 017412 
4533 
4534 017414 
4535 
4536 
4537 017420 
4538 
4539 
4540 
4541 
4542 017420 
4543 017422 
4544 017426 
4545 
4546 017434 
4547 017440 
4548 017446 
4549 
4550 
4551 017452 
4552 


28-MAR-79 0 


005737 


000137 


000004 
012706 
012737 


004737 
012777 
004037 
000777 


000137 


000004 
012706 
012737 


004737 


012777 
004037 


000377 


CTLR1 
:03 


004744 


017420 


001000 
000022 


041524 
900001 
041174 


017454 


001000 
000023 


041524 
000001 
041174 


G 8 
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T21 READ-IN-PRESET 


;,eeteeererrererrerererereerererierereereneneeneeenetereeeeetereee 


TST a#RP06 :TEST FOR RPO6 DRIVE 

BEQ 7$ :1f = 0, TREAT DRIVE AS AN RPO4 

BR &$ :TREAT AS RPO6 = DO NEXT "MAKECL" 
ts: JMP a#00G [D0 SECOND FOLLOWING ‘MAKECL"’ 


sp ereeeeenrererereererereeereetereeeeeeeeeeeeeRteReeeeeeeneeeetere 


,peteeeererererererreeereereeeeeeeeteeeeeeeeeAeeReeaeeeeeeeAeeeee 


s*TEST 22 MAKE CURRENT CYLINDER = 777 


sy, eeeaeeeereeeetereeeeereteeeterereneeeeearAKeeeeeeeeeeeeeeeeTAT ee 


TST22: SCOPE 


MOV #STACK,SP RESET STACK 

004604 MOV #23-1,Q#TSTINM ; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK INIT DRIVE 

162712 MOV #DMD ,AaRHMR ;SET DIAGNOSTIC MODE 


JSR RO, @#MAKECYL ;SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLLOWED BY A INIT 
THIS SHOULD CHANGE RHCC 10 777 


777 

JMP aavFiSH :DON'T DO NEXT ‘'MAKECL"’ 
DOG: 
ppeeeeeeeeeeeererteeeeeteeetetettrrreeeaeaeKaeeeeeeeeAReeeee eee 
s*TEST 23 MAKE CURRENT CYLINDER = 377 


speteeererererereeeeerererererttrtereeeenentaeeeneeeeeeeeneneeA ee 


TST23: SCOPE 


MOV #STACK,SP RESET STACK 

004604 MOV #24-1,0#TSTNM ;THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK INIT DRIVE 

162652 MOV #OMD ,ARHMR ;SET DIAGNOSTIC MODE 


JSR RO, @#MAKECYL ;SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLLOWED BY A INIT 
THIS SHOULD CHANGE RHCC 10 377 


SEQ 0097 


H 8 
CZRJIN0, RPOG/S5/6 FCTING CILRI = MACYI1 _ 25-MAY-79 10:30 PAGE 99 


CZRJID.P11 28-MAR-79 09:03 MAKE CURRENT CYLINDER = 377 SEQ 0098 
4554 
4555 
4556 
4557 017454 FISH: 
4558 ppreeeereeeereerererreerererrerrerererereneteeteeeteeeeeeterTenes 
iby s*TEST 24 RECALIBRATE COMMAND 
4561 ;* ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
a7 se THEN A RECALIBRATE = 6 COMMAND IS GIVEN 
rior} 78 NO REGISTERS SHOULD CHANGE EXCEPT RHCC = 0 
4566 ppteeerreerrrerrrerereereerrererenereeetAeteeeeteneneeeneeeneeeee 
4567 017454 000004 1S124: SCOPE 
4568 017456 012706 001000 MOV WSTACK,SP :RESET STACK 
“30? 017462 012737 000024 004604 MOV #24,a#TSTNM :SAVE TEST NUMBER 
4571 017470 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
4572 7R3-RHDS1, R4-RHERI 
4573 :GIVE RH-11 INITIALIZE 
4574 ;SETUP UNIT NUMBER 
4575 017474 004737 041604 JSR PC ,@#CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
4576 AND THAT NO STATUS BITS ARE STUCK = 1 
4577 017500 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
4578 THE FIRST SET OF BITS DON'T = 1 
4579 017504 000000 HALT : STOP 
4580 017506 012700 002272 MOV #RHWC RO sADDR. OF ADDR. OF RHWC IN RO 
<3) 017512 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHWC 
4385 017516 012730 177776 MOV #177776,a(RO)* ;LOAD 177776 INTO RHBA 
4 
4585 017522 052730 000010 BIS #010,a(RO)+ LOAD 010 INTO RHCS2 
4986 017526 012730 001400 MOV #1400,a(RO)+ LOAD 1400 INTO RHCS1 
4 
4368 017532 012730 000000 MOV #0,a(RO)+ LOAD 0 INTO RHERI 
4390 017536 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHDST 
4 
4392 017542 012730 000000 MOV #0,a(RO)+ :LOAD 0 INTO RHER2 
4 
“3% 017546 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHOF 
4 
4396 017552 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHCA 
4 
4398 017556 012730 000000 MOV #0,a(RO)+ LOAD 0 INTO RHER3 
4 
4600 :*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
46 
4602 017562 010046 MOV RO,-(SP) >;PUSH RO ON STACK 
460% 017564 011446 MOV aR4,-(SP) :SAVE RHER1 TO REINSTATE LATER 
4604 017566 011246 MOV aR2,-(SP) :SAVE RHCS2 TO BE REINSTATED 
4605 sAFTER ALL ATA BITS HAVE BEEN SET 
4606 017570 013700 004742 MOV a#TOTALAT,RO :GET DRIVES PRESENT 
4607 017574 005012 CLR aR2 CLEAR RHCS2 AND CARRY 
4608 017576 012705 000010 MOV #8.,R5 > COUNTER 
4609 017602 006000 B4$: ROR RO :GET BIT INTO CARRY 


CZRJIDO, RPOG/5/6 FCTNL 


CZRJ1IO.P11 
4610 017604 
4611 017606 
4612 
46135 017612 
4614 017614 
4615 017616 
4616 017620 
4617 017622 
4618 017624 
4619 017626 
4620 
4621 
4622 017630 
4625 
4624 
4625 017634 
4626 
4627 
4628 
4629 
4630 
4631 017642 
4632 017646 
4633 017650 
4634 
4635 017652 
4636 
4637 017654 
4638 
4639 
4640 
4641 
4642 
4643 
4644 017662 
4645 (017666 
4646 
4647 017672 
4648 
4649 
4650 017676 
4651 017700 
4652 
4653 017702 
4654 017704 
4655 017706 
4656 017710 
4657 017712 
4658 
4659 
4660 
4661 
4662 
4663 017714 
4664 017720 
4065 017724 


CTLRI 


28-MAR-79 09:05 


103002 
012714 


005212 


005720 


012730 


013777 


004037 
002272 
004612 
000022 


013777 


013746 
052716 


012677 


177777 


177776 


002426 


041672 


004606 


002426 
000101 


162402 


002426 
004301 
004722 


MACY11 30A(1052) 
124 


162436 


162404 


85$: 
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RECALIBRATE COMMAND 


BCC 85$ BRANCH IF NO UNIT ON THIS BIT 
MOV #-1,aR4 ;MOVE INTO eT REGISTER 

;10 SET ATA BIT 
INC aR2 ; INCREMENT RHCS2 TO NEXT UNIT 
DEC R5 UNT 
BNE 84% :BRANCH If 8 NOT DONE 
MOV (SP)+,@R2 sREINSTATE RHCS2 


MOV (SP)*,@R4 TREINSTATE RHERI 
MOV (SP)+,RO ;;POP STACK INTO RO 
TST (RO)+ GET OVER PHAS IN RO 


MOV #177776,a(RO)* ;LOAD 177776 INTO RHMR 


MOV @ARECALI,@RHCS1 ;GET READY FOR RECALI 
;RECALIBRATE WITH 6 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE 


JSR RO, @#SAVER ;SAVE REGISTERS 
RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS GF WHERE 
; THE REGISTERS ARE SAVED 
18. ; NUMBER OF REGISTERS 
SAVED = 18. 


MOV @#RP4VEC,ARPVEC : SET RPO4 VECTOR ADDRESS 
TO "TIME 1" IF P-CLOCK IS PRESEN 
TOR TO 'TIME2' IF P-CLOCK IS NOT " PRESENT 
:'TIME* WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@MRECALI,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO! IE, (SP) GET READY TO SET ‘GO* AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


76 IN RHCS1 FOR RECALIBRATE 
;WITH INTERRUPT ENABLED 


MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR DRY BIT TO SET 

RHDS1 WAIT FOR RHDS1 REGISTER 

DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999. ALLOW 319990 the ieee Ss 

24001. ;DRY MUST SET B 


;79980 AND 560000" nicRO SECONDS 


>*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
7*RO AND RS IMMEDIATELY AFTER GO 


MOV Q@MRECALI,-(SP) ;SAVE COMMAND 
BIS #DVA!GO!LE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 
TST @#NUNIT ;ARE THERE MORE THAN ONE UNIT 


J 8 
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CZRJID.P11 © 28-MAR-79 09:03 124 RECALIBRATE COMMAND SEQ 0100 
4666 017730 001413 BEQ 89 ;BRANCH IF ONLY ONE UNIT 
4667 017732 010037 004760 MOV RO, ae TMP4 :GET RHCS1 
4668 017736 042737 177677 004760 BIC #°CIE,a#TMPG «= S KEEP IE BIT 
4669 017744 042716 000100 BIC #1E, (SP) :CLEAR IE IN GOOD DATA 
4670 017750 953716 004760 BIS as TPS, (SP) :GET IE AS 1S 
4671 017754 052716 100000 BIS WSC, (SP) :SET SC IN RHCS1 
4672 017760 89S: 
4673 017760 011637 001124 MOV (SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 
4674 017764 022600 CMP (SP)+,RO [DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
4675 :AND COMMAND SHOULD BE SET 
4676 017766 001405 BEG 88$ :BRANCH IF GOOD 
4677 017770 010037 001126 MOV RO, a#SBDDAT ;BAD DATA 
4678 017774 010137 004600 MOV R1.a#REGADR ZFAILING REGISTER RHCS1 
4679 020000 104021 ERROR 21 [DURING ABOVE OPERATION ONLY 
4680 [COMMAND AND DVA'GO'IE!RDY SHOULD BE SET 
4681 020002 012746 030500 88$: MCV WMOL'DPRiVV!PIP,-(SP) | ;SAVE BITS SET DURING OPERATION IN RHDS1 
4682 020006 011637 001124 MOV (SP),a#SGDDAT —;SAVE FOR PRINTOUT 
4683 020012 022605 CMP (SP)+,R5 [DURING ABOVE OPERATION ONLY MOL!DPR!vv!PIP 
4684 :SHOULD BE SET 
4685 020014 001405 BEQ 90$ :BRANCH IF GOOD 
4686 020016 010537 001126 MOV R5 ,a#SBDDAT :BAD DATA 
4687 020022 010337 004600 MOV R3.a#REGADR [FAILING REGISTER RHDS1 
4688 020026 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 
4689 :MOL!DPR!VV!PIP SHOULD BE SET 
4690 020030 90$: 
4692 ;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4 
4694 020030 004037 041426 JSR RO, asf ILLRE ;MOV 0 INTO SAVED RHCC 
4695 020034 002334 RHCC TSAVED REGISTER TO CHANGE 
469 020036 000000 0 DATA 
4697 020060 004037 041426 JSR RO, aaF ILLRE :MOV 116377 INTO SAVED RHOF 
4698 020044 002310 RHOF :SAVED REGISTER TO CHANGE 
4699 020046 116377 116377 DATA 
4 
4701 020050 053737 004740 004636 BIS QWATTENT, @#SAVERE+24 ©; SET APPROPRIATE ‘ATA’ BITS 
4702 :FOR WORKING DRIVE IN 
4703 >SAVED RHAS LOACTION 
4704 020056 004037 041426 JSR RO, aeF ILLRE ;MOV 104206 INTO SAVED RHCS1 
4705 020062 002300 RHCS1 SAVED REGISTER TO CHANGE 
4706 020064 104206 104206 DATA 
4707 020066 004037 041426 JSR RO. aeF ILLRE :MOV 110700 INTO SAVED RHDS1 
4708 020072 002322 RHDS1 TSAVED REGISTER TO CHANGE 
4709 020074 110700 110700 DATA 
ory 
4 
“rie :*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 
471 
4714 
4715 020076 004037 042512 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
4716 PRESENT VALUE 
4717 020102 004012 SAVERE :GO0D DATA SAVED IN 'SAVERE" 
4718 0201046 002354 we :TEST DATA STARTING FROM 'RHWC' 
4719 020106 000022 18. 118. REGISTERS TO BE COMPARED 


4720 020110 020114 1$ ;RETURN TO 1$ ON ERROR 
4721 020112 020120 2$ ;RETURN TO 2$ ON NO ERROR 


CZRJIDO, RPOG/S/6 FCTNL CTLRI 


CZRJID.P11 28-MAR-79 09:05 


2 
4723 020114 104064 
4724 020116 000207 


4729 
4730 020120 


MACY11 


K 8 
30A(1052) 25-MAY-79 10:30 PAGE 102 
124 RECALIBRATE COMMAND 


1$: ERROR 64 ;RECALIBRATE COMMAND CAUSED 
RTS PC ;AN ERROR 

3GO0D DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER CCMMAND 


2s: 


SEQ 0101 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
28-MAR-79 09:03 


CZRJIO.P11 


020120 


020134 


020134 
020136 
020142 


020150 
020154 
020162 
020166 


020170 


020174 


020174 
020176 
020202 


020210 


020214 
020222 


020226 


005737 
001401 
000402 
000137 


000004 
012706 
012737 


004737 
012777 
004037 
000777 


000137 


000004 
012706 
012737 


004737 


012777 
004037 


000377 


004744 


020174 


001000 
000025 


041524 
000001 
041174 


020230 


001000 
000026 


041524 
000001 
041174 
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124 RECALIBRATE COMMAND SEQ 0102 


sp, eeteeereerereerererrrrereterererereerAAeeeneeeeeetenereteneeeee 


TST a#RP06 s TEST FOR RPO6 DRIVE 
BEQ $ s1F = 0, TREAT DRIVE AS AN RPOS 
BR 4% TREAT AS RP06 - DO NEXT ""MAKECL”’ 
+ JMP aacal :D0 SECOND FOLLOWING ‘‘MAKECL" 
WETITITITITITIII LITT ttt 
ee ee a 
s*TEST 25 MAKE CURRENT CYLINDER = 777 
settee erereererererereretetereeeerereneeeeeaeeneeeKeeeReReAeeAAee 
TST25: SCOPE 
MOV #STACK,SP sRESET STACK 
004604 MOV #26-1,a#1TSTNA ; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK s INIT DRIVE 
162136 MOV #OMD ,ARHMR ;SET DIAGNOSTIC MODE 
JSR RO,@#MAKECYL ; SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLLOWED BY A INIT 
:THIS SHOULD CHANGE RHCC TO 777 
777 
JMP asBIkD :DON'T DO NEXT ‘'MAKECL" 
CAT: 
ppeeeenerrerereseeeeeerereeeeeeeeteeeeeeA ARERR AAA 
;*TEST 26 MAKE CURRENT CYLINDER = 377 
speeeetetereeeeeeeeeterererertreeeeteneneeeeeenaeeneeeeeeeeReA Ee 
TST26: SCOPE 
MOV #STACK,SP sRESET STACK 
004604 MOV #27-1, aeTSTNM sTHIS SAVES TEST NUMBER 
JSR PC,a#CLDISK s INIT DRIVE 
162076 MOV #DMD ,ARHMR SET DIAGNOSTIC MODE 
JSR RO, a#MAKECYL : SUBROUT INE TO GIVE A SEEK 


;COMMAND FOLLOWED BY A INIT 
THIS SHOULD CHANGE RHCC 10 577 


CZRJIDO, RPOG/5/6 FCTNL CILRI 
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020230 


020230 
020232 
020236 


020244 


020250 
020254 


020260 
020262 


020266 
020272 


020276 
020302 


020306 
020312 
020316 
020322 
020326 
020332 


020336 
020342 


020346 


28-MAR-79 


000004 
012706 
012737 


004737 


004737 
104401 


000000 
012700 


012730 
012730 


052730 
012730 


012750 
012730 
012730 
012730 
012730 
012730 


012730 
012730 


013777 


09:03 


001000 
000027 


041524 


041604 
067033 


002272 
000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


177777 
000000 


002426 


MACY11 30A(1052) 
126 


004604 


161724 


BIRD: 


py eteeeerereeereteeereeeeerereteeeeeeeereeneeaeerenereneeeeeeeeee 


nm 8 
25-MAY-79 10:30 PAGE 104 
MAKE CURRENT CYLINDER = 377 


SeTEST 27 


ALL POSSIBLE REGISTERS ARE FILLED WITH 0 
THEN A RECALIBRATE =6 COMMAND IS GIVEN 


NO REGISTERS SHOULD CHANGE EXCEPT RHCC=0 


ft 
. 


'WERARBBARBASABAALASLALSELALESASSA SERRE RAARER REAR RRR RRR R RRR RRR RRR EERE SS 


18127: 


TYPE 


HALT 
MOV 


MOV 


BIS 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


MOV 
MOV 


MOV 


:*NOW SAVE REGISTERS FOR COMPARISON AFTER RECALIBRATE 


RECALIBRATE COMMAND 


#STACK,SP SRESET STACK 
#27, a8 TSTNM [SAVE TEST NUMBER 
PC, awCLDISK :SET RI-RHCS1, R2-RHCS2 
*R3-RHDS1, R4-RHER1 
‘GIVE RH-11 INITIALIZE 
:SETUP UNIT NUMBER 
PC, a#CHECKT ‘CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
[AND THAT NO STATUS BITS ARE STUCK 
/CPHALT “CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON'T 
#RHWC,RO SADDR. OF ADDR OF RHWC IN RO 
#0,a(RO)+ :LOAD 0 INTO RHWC 
#0,a(RO)+ :LOAD 0 INTO RHBA 
#0,a(RO)+ :LOAD 0 INTO RHCS2 
#0.a(RO)+ ‘LOAD 0 INTO RHCS1 
#0,a(RO)+ :LOAD 0 INTO RHERI 
#0,a(RO)+ :LOAD 0 INTO RHDST 
#0,a(RO)+ :LOAD 0 INTO RHER2 
#0,a(RO)¢ :LOAD 0 INTO RHOF 
#0,a(RO)+ :LOAD 0 INTO RHCA 
#0,a(RO)+ :LOAD 0 INTO RHER3 
#-1,a(R0)+ sCLEAR ALL BITS OF RHAS 
#0,a(RO)+ =LOAD 0 INTO RHMR 


Q@WRECALI,QRHCS1 ;GET READY FOR RECALI 
;RECALIBRATE WITH 6 IN RHCS1 


SEQ 0103 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
28-MAR-79 09:03 


CZRJI1D. 


pr 
020354 
020360 
020362 
020364 


020366 


020374 
020400 


020404 
020410 
020412 
020414 


020424 


020426 


020442 
020444 
020446 
020452 
020456 
020460 
020464 
020470 


020472 


020504 
020506 


020506 
020512 


004037 
002272 
004612 


000022 
013777 


013746 
052716 


012677 


056701 


013746 


022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


004037 
002354 


041672 


004606 


002426 
000101 


161670 


002426 
004301 
001124 


001126 
004600 


030500 
001124 


001126 
004600 


041426 


MACY11 30A(1052) 
127 


161672 


88$: 


90$: 


nN 8 
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RECALIBRATE COMMAND SEQ 0104 
JSR RO ,@#SAVER ;SAVE REGISTERS 
RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
18. : NUMBER OF REGISTERS 


7S 8. 
MOV @ARP4VEC, @RPVEC iSET RPO4 VECTOR ADDRESS 
;TO "TIME1’ IF P-CLOCK IS PRESENT 
‘OR TO "TIME2' IF P-CLOCK IS NOT PRESENT 
:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV QARECALI,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO'1E, (SP) ;GET READY TO SET ‘GO’ AND 

ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;G0 WITH 

36 IN RHCS1 FOR RECALIBRATE 

;WITH INTERRUPT ENABLED 
MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR DRY BIT TO SET 
RHDS1 sWAIT FOR RHDS1 REGISTER 
DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999. ALLOW 319990 as tue SECONDS 
24001. ;DRY MUST SET B 


WEEN 
;79980 AND 560000 MICRO SECONDS. 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV Q@MRECALI,-(SP) ;SAVE COMMAND 


BIS MOVA!GO!TE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 

MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY DVA‘GO!IE!RDY 
;AND COMMAND SHOULD BE SET 

BEQ 88$ ;BRANCH IF GOOD 


MOV RO, a#S$BDDAT ;BAD DATA 
MOV R1,Q#REGADR sFAILING REGISTER RHCS1 
ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND DVA!GO!IJE!RDY SHOULD BE SET 
MOV WMOL!DPR!VV!PIP,-(SP)  ;SAVE that SET DURING OPERATION IN RHDS1 


MOV (SP), a#$GDDAT —; SAVE FOR PRINTOU 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR!VV!PIP 
;SHOULD BE SET 

BEQ 90% ;BRANCH IF GOOD 


MOV R5,a#$BDDAT ;BAD DATA 

MOV R3,Q#REGADR sFAILING REGISTER RHDS1 

ERROR 65 ;DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV!PIP SHOULD BE SET 


*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,a#FILLRE :MOV 0 INTO SAVED RHCC 
RHCC SAVED REGISTER TO CHANGE 


CZRJIDO, RPOS/S/6 FCTNL CTLRI 
28-MAR-79 


CZRJ1O.P11 


020514 
020516 


020524 
020530 
020532 
020534 
020536 


020540 
020544 


020546 
020550 
020552 


020554 


020560 
020562 
020564 
020566 
020570 


020572 
020574 


020576 


000000 
053737 


004037 
002322 


000001 
000001 
100000 


004037 
002300 


000001 
000001 
100000 


004037 


093854 
000022 
020572 
020576 


104064 
000207 


09:03 


004740 004636 


042404 


042404 


042512 


MACY11 30A(1052) 
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1$: 


2$: 
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25-MAY-79 10:30 PAGE 106 
RECALIBRATE COMMAND SEQ 0105 


0 ;DATA 
BIS Q#ATTENT ,@#SAVERE +24 :SET APPROPRIATE ‘ATA’ BITS 


;FOR WORKING DRIVE IN 
;SAVED RHAS LOACTION 


JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 

ATA ;CHANGE ATA BIT 

JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
RHCS1 ;CHANGE RHCS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF SC IS 1 

sc ;CHANGE SC BIT 


>*NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC TEST DATA STARTING FROM ‘RHWC' 
18. 318. REGISTERS TO BE COMPARED ' 
1$ ;RETURN TO 1$ ON ERROR 
2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 64 ;RECALIBRATE COMMAND CAUSED 
RTS PC ;AN ERROR 
;GOOD DATA GIVES WHAT SHOULD BE 
; THERE 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER A RECALIBRATE 


CZRJIDO, RPO4/5/6 4 CTL 


CZRJ1D.P11 


4946 020576 


4951 020600 


4957 020622 
4959 020624 


4963 020634 
4965 020642 


4969 020646 
4971 020652 
4973 020656 


4978 020660 
4979 020664 
4980 020670 


28-MAR-79 


000004 


005737 


000402 


000137 


012706 
012737 


004737 


004737 
104401 
000000 


017746 
042716 
022726 


Ri 
09:03 


004724 
000042 
001100 


022112 


001000 
000030 


041524 


041604 
067033 


MACY11 30A(1052) 
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004604 
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UNLOAD COMMAND SEQ 0106 


;,eeeeeeereeerrerrerererereteneeeerereteeeeeeeeeeeeeeeeeeeeeeeeeETe 


;*TEST 30 UNLOAD COMMAND 


eseerererntrnetneeneeeeeees 


; 


2$: 


IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 


If THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF NO ACT-11 MONITOR IS PRESENT 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


ALL POSSIBLE REGISTERS ARE FILLED WITH ONES 
THEN AN UNLOAD COMMAND =2 IS GIVEN 

NO REGISTERS SHOULD CHANGE EXCEPT MOL SHOULD=0 
THEN THE DRIVE IS POWERED UP BY OPERATOR 

AND A PACK ACKNOWLEDGE COMMAND (ALREADY TESTED) 
SETS VV-IN RHDS1 


Sige. Gane 72 oe ee ee ea gee ree 


SCOPE 


>*THIS CODE CHECKS TO SEE IF MANUAL INTERVENTION TESTS ARE OK 


TST @#NOPUSH 1S THIS A 220 START ? 

BNE 1$ SKIP THIS TEST IF SO 

TST ade ;MONITOR (ACT 11) RETURN ADDRESS ? 
BNE 1$ SKIP THIS TEST 

TST Q#SPASS FIRST PASS ? 

BNE 1$ ;SKIP THIS TEST IF NOT 

BR 2$ CONTINUE WITH THIS TEST 

JMP Tetst JUMP TO NEXT TEST encoeceocooccece ) 
MOV WSTACK,SP ;RESET STACK 

MOV #30,a#TSTNM SAVE TEST NUMBER 

JSR PC ,a#CLDISK ;SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


JSR PC ,a#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 

; THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


;*THIS SETTING OF VV 1S FOR LOOP ON ERROR ONLY 
;*WHERE UNLOAD TAKES EFFECT AND CYCLE UP BRINGS VV DOWN 


MOV @RHDS1,-(SP) ;PUSH RHDS1 ONTO STACK 
BIC #167677, (SP) ;CLEAR EVERYTHING EXCEPT VV AND MOL 
CMP WVV!MOL,(SP)*  ;ARE VV AND MOL SET ? 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJIO.P11 


020674 
020676 
020702 
020762 
020762 
020766 
021040 
021040 


021042 


021046 


021052 
021056 


021060 
021064 


021070 


021074 


021124 


28-MAR-7 
001504 


104401 
000427 


104401 
000424 


000009 
004737 


004737 


104401 
000000 


013746 
052716 


012677 


104413 
002322 
000100 
000001 
000001 


004737 
0 
000240 


012700 


012730 


9 09:03 


020704 


020770 


041524 


041562 
067033 


002460 
000001 


161204 


041604 


002272 


177777 


MACY11 30A(1052) 
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6$: 
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UNLOAD COMMAND SEQ 0107 
BEQ 6% 5 tae IF YES 

TYPE rot ta i 3 TYPE ASCIZ STRING 

BR ;GET OVER THE ASCIZ 

»ASCIZ O18 5<129/681 DRIVE HEADS LOADED THEN HIT “'CONTINUE"’/ 

TYPE oth +s TYPE ASCIZ easel 

BR 66$ ;GET OVER THE ASCIZ 

LASCIZ  <15><12>/1F ALREADY LOADED THEN HIT “'CONTINUE'’/ 

HALT ;WAIT FOR CONTINUE 

JSR PC ,aa#CLDISK SET RI-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


JSR PC ,a#CHECK ;CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 

;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE -CPHALT CANNOT CONTINUE TESTS IF THEY AREN'T 
HALT ; STOP 


7*SET VV IN RHDS1 WITH PACK ACKNOWLEDGE 


MOV Q#PKACK,-(SP)  ;GET READY TO MOVE COMMAND 
BIS #60, (SP) ;GET READY TO SET GO 

;WITHOUT INTERRUPT ENABLE 
MOV (SP)+,@RHCS1 ;GO WITH 


322 IN RHCS1 FOR PACK ACKNOWLEDGE 
WITH INTERRUPT DISABLED 


WAT ;WAIT FOR vv BIT TO SET 
RHDS1 WAIT FOR RHDS1 REGISTER 
VV ;WAIT FOR VV BIT IN RHDS1 REGISTER 
Te ;ALLOW 10 MICRO SECONDS 
¥. VV MUST SET BETWEEN 
;00 AND 20 MICRO SECONDS 
JSR PC ,a#CHECKT ;CHECK DVA,RDY,MOL,DPR & vv = 
NOP CHECK THAT ALL OTHER BITS = 0. 
NOP ;UNLIKE THE OTHER STATUS BIT TESTS, 
NOP ; THERE IS NO HALT IF IT FAILS - IT IS 
[USED IN THE MIDDLE OF A SINGLE TEST 
MOV #RHWC ,RO ;ADDR. OF ADDR OF RHWC IN RO 


;*LOAD ALL POSSIBLE REGISTERS WITH ONES 


MOV #177777,a(RO)* ;LOAD 177777 INTO RHWC 


CZRJID0, RPOG/5/6 FCTNL CILRI 
CZRJID.P11 


021130 


021134 


021140 


021144 


021150 


021154 


021160 


021164 


021170 


021174 
021176 
021200 


021202 


021220 
021224 


021240 


28-MAR-79 
012730 


052730 


012730 


012730 


012730 


012730 


012730 


012730 


012730 


09:03 
177777 


000010 


001400 


000000 


177777 


000000 


177777 


177777 


000000 


004742 
000010 


177777 


MACY11 30A(1052) 
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91$: 


92$: 


25-MAY-79 
UNLOAD COMMAND 
MOV #177777,a(RO)* 
BIS #10,a(RO0)+ 
MOV #1400,a(R0)+ 
MOV #0,a(RO)+ 
MOV #177777,a(RO)* 
MOV #0,a(RO)+ 
MOV #177777,a(RO)+ 
MOV #177777,a(RO)+ 
MOV #0,a(RO)+ 


6, 
10:30 PAGE 109 


;LOAD 177777 INTO RHBA 


;LOAD 10 INTO RHCS2 


;LOAD 1400 INTO RHCSI 


;LOAD 0 INTO RHERI 


;LOAD 177777 INTO RHDST 


;LOAD 0 INTO RHER2 


;LOAD 177777 INTO RHOF 


;LOAD 177777 INTO RHCA 


;LOAD 0 INTO RHER3 


;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


RO,-(SP) 
@R4,- (SP) 
aR2,-(SP) 


Qa#TOTALAT ,RO 
aR2 

#8. ,R5 

RO 


92% 
#-1,9R4 


R5 

91% 
(SP)+,aR2 
(SP)+,aR4 
(SP)+,RO 
(RO) + 


;;PUSH RO ON STACK 
;SAVE RHER1 TO REINSTATE LATER 
;SAVE RHCS2 TO BE REINSTATED 
;AFTER ALL ATA BITS HAVE BEEN SET 
;GET DRIVES PRESENT 
CLEAR RHCS2 AND CARRY 
; COUNTER 
;GET BIT INTO CARRY 
BRANCH IF NO UNIT ON THIS BIT 
MOVE INTO —e REGISTER 

;T0 SET ATA BIT 

—— RHCS2 TO NEXT UNIT 

N 


; COU 

:BRANCH IF 8 NOT DONE 
REINSTATE RHCS2 
sREINSTATE RHER1 
:;POP STACK INTO RO 
;GET OVER PHAS IN RO 


SEQ 0108 


. | 
CZRJIDO, RPO4/5/6 4" CTLR1 = =6MACYI1 30A(1052) 25-MAY-79 10:30 PAGE 110 


CZRJID.P11 28-MAR-79 09:03 130 UNLOAD COMMAND SEQ 0109 
5093 
5094 
5095 
Has 021242 012730 177776 MOV #177776,a(RO)* ;LOAD 177776 INTO RHMR 
5098 
5099 021246 013777 002424 161024 MOV @MUNLOAD,@RHCS1 ;GET READY FOR UNLOAD 
5100 UNLOAD WITH 2 IN RHCS1 
5101 
5102 
5103 ;*NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD 
021254 004037 041672 JSR RO, @#SAVER SAVE REGISTERS 
021260 002272 RHWC ;RHWC 1S THE FIRST REGISTER SAVED 
021262 004612 SAVERE STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
021264 000021 17. ;NUMBER OF REGISTERS 
;SAVED = 17. 
021266 013777 904606 160772 MOV Q#RP4VEC,ARPVEC 4h RPO4 VECTOR ADDRESS 


O 'TIME1’ IF P-CLOCK IS PRESENT 
SOR TO 'TIME2’ IF P-CLOCK IS NOT PRESENT 
:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


SEUSS SRNSRRUN VMS Sane uruvr—OoSeusor 


WWWNWA AAAI AAR NOPD PNY NNO ND Ss Ss Ss |S SS OOOOO 


021274 013746 002424 MOV @#UNLOAD,-(SP) ;GET READY TO MOVE COMMAND 
021300 052716 000001 BIS #60, (SP) - ;GET READY TO SET GO 
;WITHOUT INTERRUPT ENABLE 
021304 012677 160770 MOV (SP)+,@RHCS1 :GO WITH 
32 IN RHCS1 FOR UNLOAD 
;WITH INTERRUPT DISABLED 
21310 011100 MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
021312 011305 MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
021314 104413 WAT sWAIT FOR BIT TO SET 
021316 002300 RHCS1 7 IN RHCS1 REGISTER 
021320 000200 RDY :'RDY' BIT 
021322 000001 1. ;ALLOW 10 MICRO SECONDS 
021324 000001 1. ;ANOTHER 10 - ‘RDY* MUST SET BETWEEN 


:00 AND 20 MICRO SECONDS 
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CZRJIDO, RPOG/5/6 FCTINL CTLR1 = MACY11 350A(1052) 25-MAY-79 10:30 PAGE 111 
CZRJID.P11 28-MAR-79 09:03 130 UNLOAD COMMAND SEQ 0110 
5136 
5137 ;*COMPARE CONTENTS OF RHCS1 AND RHDS1, WHICH WERE SAVED 
a135 ;*DURING THE UNLOAD COMMAND, WITH THE EXPECTED RESULTS 
5140 021326 013746 002424 MOV @#UNLOAD,-‘SP) ;PUSH COMMAND ON STACK 
5141 021532 052716 004201 BIS MDVA!GO!RDY,(SP) ; INCLUDE THESE BITS SET 
5142 1336 005737 004722 TST @#NUNIT 31S THERE MORE THAN ONE UNIT ? 
54435 021342 001413 BEQ 9$ SKIP NEXT IF ONLY ONE UNIT 
5144 021344 010037 004760 MOV RO, aaTMPG ;PUT SAVED RHCS1 INTO TMP4 
5145 021350 042737 177677 004760 BIC #*CIE ,aaTMP4 ;MASK ALL BUT THE "IJE* BIT IN RHCSI 
5146 021356 042716 000100 BIC WIE, (SP) ;CLEAR "JE* IN EXPECTED DATA 
5147 021362 053716 004760 BIS aa TMP4 , (SP) ;SET ‘IE" STATE FROM ACTUAL RHCS1 DATA 
Ree 021366 052716 100000 BIS #SC,(SP) 7SET ‘SC* IN RHCS1 SAVED DATA 
5150 021372 011637 001124 9$: MOV (SP),@#$GDDAT  ;SAVE EXPECTED DATA FOR PRINTOUT 
5151 021376 022600 CMP (SP)+,RO ;COMPARE EXPECTED DATA WITH SAVED 
5152 ;RHCS1 DATA AND RESET THE STACK 
5153 021400 001405 BEQ 10% ;CHECK NEXT BITS IF THESE OK 
5154 021402 010037 001126 MOV RO, a#S$BDDAT ;RHCS1 IS BAD - PRINT IT OUT 
5155 021406 010137 004600 MOV R1,a#REGADR ;REGISTER ADDRESS 
5156 021412 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY THE 
5157 :"DVA', ‘GO’, ‘RDY' AND COMMAND BITS 
2189 ;SHOULD BE SET 
5160 021414 012746 020400 10$: MOV #PIP'DPR,-(SP) ;PUT SOME EXPECTED RHDS1 BITS ON STACK 
5161 021420 010537 004760 MOV R5,a# TMP ;PUT SAVED RHDS1 INTO TMP4 
5162 021424 042737 167677 004760 BIC #*°C<MOL!VV>,@#TMP4 ;MASK ALL BUT ‘MOL’ & ‘VV" IN RHDS1 
5163 021432 042716 010100 BIC #WMOL! VV,(SP) CLEAR ‘MOL’ &@ ‘VV" IN EXPECTED RHDS1 
5164 021436 053716 004760 BIS Oa TMP4, (SP) ;SET EXPECTED ‘MOL’ & ‘vv' BIT STATES 
5165 ;FROM THE ACTUAL DATA (DON'T CARE) 
5166 021442 011637 001124 MOV (SP),@#$GDDAT  ;SAVE EXPECTED DATA FOR PRINTOUI 
5167 021446 022605 CMP (SP)+,R5 ;COMPARE EXPECTED DATA WITH SAVED 
5168 ;RHDS1 DATA AND RESET THE STACK 
5169 021450 001405 BEQ 11$ ;CONTINUE IF EXPECTED=SAVED 
5170 021452 010537 001126 MOV R5,a#S$BDDAT ;RHDS1 IS BAD - PRINT IT OUT 
5171 021456 010337 004600 MOV R3,Q#REGADR REGISTER ADDRESS 
5172 021462 104063 ERROR 63 ;DURING THE ABOVE OPERATION, ONLY ‘PIP 
5173 ;AND ‘DPR’ SHOULD BE SET 
5174 :"MOL' & ‘vVV" ARE DON'T CARES 
aE be 021464 118: 
6 
5177 021464 104401 021472 TYPE 96% >; TYPE ASCIZ STRING 
5178 021470 000425 BR 95% 3;GET OVER THE ASCIZ 
5179 3:96$: .ASCIZ <15><12>/1F STANDBY NOT LIT = ERROR AFTER UNLOAD/ 
5180 021544 95$: 
ei THIS PROVIDES A 1 SECOND “‘STALL” 
1 





CZRJ1D0, RPO4/5/6 FCTNL 
28-MAR-79 


CZRJ1ID.P11 


PAPA AAAFN UI 
ed 
oO 
rN 


5214 


MR h — ea es 
m—OCDOONOW 


PAAANAI 
MMrorrr 


021544 


021570 


021574 
021600 


021604 
021610 


021612 
021614 
021616 


021620 
021624 


021626 
021632 


021634 
021636 
021640 
021642 


021642 


021650 
021654 


021664 


021666 
021670 


012746 
017737 


053716 


042716 
012637 


004037 
002300 


000001 
000001 
000001 


005737 
001006 


004037 
002300 


000001 
000000 
100000 


043737 


004037 


004612 
002354 
000021 
021666 
021672 


104025 
000207 


020400 


0 
004760 


100200 
004642 


042404 


004722 


042404 


004740 


042512 


MACY11 


004760 
004760 


004636 


H 9 
30A(1052) 25-MAY-79 10:30 PAGE 112 
130 UNLOAD COMMAND 


> *NOW CHANGE REGISTERS SAVED BEFORE UNLOAD COMMAND 
;*T0 EXPECTED VALUES AFTER UNLOAD COMMAND 


;* = AGAIN ‘MOL’ $ ‘vv" ARE DON'T CARES 


MOV #PIP'DPR,-(SP) ;SET EXPECTED FINAL RHDS1 BITS 

MOV @RHDS1, as TMP, :GET PRESENT ACTUAL RHDS1 CONTENTS 

BIC #*C<MOL!VV>, aa TMP, ;MASK OUT ALL BUT ‘MOL’ @ ' 

BIC #MOL!VV, (SP) CLEAR ‘MOL' & ‘vv' IN EXPECTED RHDS1 

BIS ae TMP, (SP) ;SET EXPECTED ‘MOL’ & ‘vv" STATES 
:FROM THE ACTUAL (DON'T CARE COND.) 

BIC MATA'DRY, (SP) > CLEAR THESE ADDITIONAL RHDS1 BITS 

MOV (SP) +, a#SAVERE+30 ; ;CHANGE THE SAVED RHDS1 REGISTER 
; AND ADJUST THE STACK 

JSR RO,a#CHREG :CHANGE BITS IN SAVED REGISTER 

RHCS1 ; CHANGE RHCS1 REGISTER 

1 31 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF GO IS 1 

60 ;CHANGE GO BIT 

TST a#NUNIT :1S THERE MORE THAN ONE UNIT ? 

BNE 7$ sSKIP NEXT IF MORE THAN ONE UNIT 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHCS1 : CHANGE RHCS1 REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

0 sNEW VALUE OF SC IS 0 

SC sCHANGE SC BIT 

7$: 
BIC O#ATTENT ,OMSAVERE+24 :;CLEAR APPROPIATE ATA BITS 
sFOR WORKING DRIVE IN SAVED RHAS 

>*NOW COMPARE REGISTERS AFTER THE UNLOAD COMMAND 

s*WlTH EXPECTED VALUES 

JSR RO,a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC sTEST DATA STARTING FROM ‘RHWC' 

be 317. REGISTERS TO BE COMPARED 

3$ ;RETURN TO 3% ON ERROR 

4% ;RETURN TO 4$ ON NO ERROR 

3$: ERROR 23 sUNLOAD COMMAND GAVE 

RTS PC > AN ERROR 
;GOO0D DATA GIVES WHAT SHOULD 
;BE THERE 


SEQ 0111 


0 


ahi 


021672 
021672 
021676 


021714 


021726 
022040 
022040 


022056 


022060 
022064 


022070 


022074 
022076 


022100 
022102 
022104 
022106 
022110 


RP04/5/6 FCTNL 
28-MAR-79 


104401 
000406 


013746 
104405 
104401 
000444 


005037 


000240 


013746 
052716 


012677 


000001 


CTLRI 
09:03 


021700 


004716 
021730 


047342 
041562 


002460 
000001 


160204 


MACY11 30A(1052) 
130 


25-MAY-79 


NLOAD COMMAND 


;*SET VV IN RHDS1 AFTER 


95 


97% 
<15><12>/0N DRIVE / 
Q#UNIT,-(SP) 


, 100% 


99$ ;GET 
<15><12>/1F STANDBY LIT HIT STANDBY OR START - AFTER HEAD LOAD HIT CONTI 


aaPRITEM 
PC ,@#CHECK 


ee. 
10:30 PAGE 113 


RECEIVED DATA GIVES WHAT WAS 


; THERE AFTER UNLOAD CCMMAND 


+e TYPE ASCIZ STRING 
- OVER THE ASCIZ 


;GET UNIT UNDER TEST 


(ety ASCIZ STRING 
OVER THE ASCIZ 


;CLEAR PREVIOUS ERROR NUMBER 

WAIT FOR CONTINUE 

;CHECKS THAT DVA,RDY,MOL & DPR = 1 
CHECKS THAT ALL OTHER BITS = 0 

; THERE 1S NO HALT IF IT FAILS = IT 
31S USED IN THE MIDDLE OF A TEST 


RESET FROM ACTUATING 


:*THE STANDBY SWITCH AND CYCLING UP (MOL = 1) 


MOV 
BIS 


MOV 


@#PKACK ,-(SP) 


#G0, (SP) 


(SP)+,@RHCS1 


aR1,RO 
AR3,R5 


;GET READY 10 MOVE COMMAND 
;GET READY TO SET SO 
;WITHOUT INTERRUPT ENABLE 
;GO WITH 
322 IN RHCS1 FOR PACK ACKNOWLEDGE 
;WITH INTERRUPT DISABLED 


;SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR VV BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR VV BIT IN RHDS1 REGISTER 
ALLOW 10 MICRO SECONDS 

;VV MUST SET BETWEEN 

:00 AND 20 MICRO SECONDS 
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$283 pp eereeeererererererreeeereeeereeerereeekeeeereAeAeeAAee AeA ee ATES 
44 s*TEST 31 OFFSET AND RETURN TO CENTER LINE COMMAND 
asae if THIS TESTS TWO COMMANDS: (1)OFFSET, (2)RETURN-TO-CENTER=-LINE 
5288 :* ALL POSSIBLE REGISTERS ARE FILLED WITH ONES (EXCEPT RHOF) 
5289 38 AND AN OFFSET IS GIVEN 
5290 ;* ALL REGISTERS ARE COMPARED, ONLY ATA SHOULD SET 
344 :* ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 
5293 :* THEN A RETURN-TO-CENTER=LINE IS GIVEN 
5294 32 ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 
5295 :* AND RHOF SHOULD CLEAR (EXCEPT HCI,ECI,FMT22) 
4347 3 ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 
5298 :* THE ABOVE PROCESS 1S REPEATED FOR OFFSET REGISTER 
rs 3 3 VALUES OF 1 TO 377 IE. 377 TIMES 
5301 ppt eeeeeererereterrerereretertereeereeeeeeeee eee E ee 
§302 022112 000004 TST31: SCOPE 
5303 022114 012737 022166 001106 MOV #1$,$LPADR 7; SET score LOOP ADDRESS 
5304 022122 012706 001000 MOV #STACK,SP ;RESET STACK 
tt 022126 012737 000031 004604 MOV #31,a¢TSTNM s SAVE test NUMBER 
5307 022134 004737 041524 JSR PC, a#CLDISK SET R1-RHCS1, R2-RHCS2 
5308 sR3-RHDS1, R4-RHERI 
5309 GIVE RH-11 INITIALIZE 
5310 SETUP UNIT NUMBER 
§311 022140 004737 041562 JSR PC, a#CHECK CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
5312 ‘AND THAT NO STATUS BITS ARE STUCK = 1 
5313 022144 104401 067033 TYPE ,CPHALT CANNOT CONTINUE TESTS IF THEY AREN'T 
5314 022150 000000 HALT : STOP 
5315 022152 112737 000001 004610 MOVB #1,a#OF STVL :SET OFFSET VALUE TO 1 
a3i¢ 022160 112737 000034 004611 MOVB #34, QMOFSTVL41 :SET HCI,ECI,FMT22 
5318 
ah 022166 1$: 
5321 022166 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
5322 >R3-RHDS1, R4-RHERI 
5323 GIVE RH-11 INITIALIZE 
5324 ;SETUP UNIT NUMBER 
5325 022172 004737 041604 JSR PC ,a#CHECKT sCHECK DVA,RDY,MOL,DPR & vv = 1 
5326 022176 000240 NOP sCHECK THAT ALL OTHER BITS = 0 
5327 022200 000240 NOP UNLIKE THE OTHER STATUS BIT TESTS, 
§328 022202 000240 NOP s THERE 1S NO HALT IF IT FAILS = IT IS 
5329 USED IN THE MIDDLE OF A SINGLE TEST 
tt 022204 012700 002272 MOV #WRHWC,RO ADDR. OF ADDR OF RHWC IN RO 
Bats 022210 012730 177777 MOV #177777,a(R0)+ ;LOAD 177777 INTO RHWC 
5334 
yi 022214 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHBA 
6 
5337 
5338 022220 052730 000010 BIS #10,a(R0)+ sLOAD 10 INTO RHCS2 


K 9 
1D0, RPOG/5/6 FCTNL CTLR1 = MACY11 30A(1052) 25-MAY-79 10:30 PAGE 115 


CZRJ | 
CZRJ1D.P11 28-MAR-79 09:05 131 OFFSET AND RETURN TO CENTER LINE COMMAND SEQ 0114 
5339 
rt 98 022224 012730 001400 MOV #1400,a(RO)+ ;LOAD 1400 INTO RHCS1 
5342 
Bier 022230 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHERI 
5345 
Ha 022234 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHDST 
5348 
Hod 022240 012730 000000 MOV #0,a(RO)+ ;LOAD 0 INTO RHER2 
4443 s*THE OFFSET REGISTER WILL BE INCREMENTED FROM 0 10 377 
4244 022244 013730 004610 MOV Q#OFSTVL,@(RO)+ ;SET OFFSET REGISTER 
444 022250 012730 177777 MOV #177777,a(RO)* ;LOAD 177777 INTO RHCA 
4144 022254 012730 000000 MOV #0,a(RO)+ sLOAD 0 INTO RHERS 
44 ;*NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
5361 022260 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
5362 022262 011446 MOV @R4,-(SP) ;SAVE RHER1 TO REINSTATE LATER 
5363 022264 011246 MOV @R2,-(SP) ;SAVE RHCS2 TO BE REINSTATED 
5364 sAFTER ALL ATA BITS HAVE BEEN SET 
5365 022266 013700 004742 MOV @#TOTALAT,RO GET DRIVES PRESENT 
5366 022272 005012 CLR aR2 ;CLEAR RHCS2 AND CARRY 
5367 022274 012705 000010 MOV #8.,R5 ; COUNTER 
5368 022300 006000 82$: ROR RO :GET BIT INTO CARRY 
5369 022302 103002 BCC 83$ ;BRANCH IF NO UNIT ON THIS BIT 
5370 022304 012714 177777 MOV #-1,aR4 :MOVE INTO oR REGISTER 
5371 ;10 SET ATA BIT 
5372 022310 005212 838: INC aR2 ; INCREMENT RHCS2 TO NEXT UNIT 
5373 022312 005305 DEC R5 ; COUNT 
5374 022314 001571 BNE 82$ ;BRANCH IF 8 NOT DONE 
5375 022316 012612 MOV (SP)+,aR2 ;REINSTATE RHCS2 
5376 022320 012614 MOV (SP)+,aR4 ;REINSTATE RHER1 
5377 022322 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
5378 022324 005720 TST (RO)+ ;GET OVER PHAS IN RO 
33 
ooee 022326 012730 177776 MOV #177776,a(RO)* ;LOAD 177776 INiC RHMR 
Stee 022332 013777 002454 157740 MOV Q#OFSETC,@RHCS1 ;GET READY FOR OFSETC 
5385 
Ary 7*NOW SAVE REGISTERS FOR COMPARISON AFTER OFFSET 
9388 022340 004037 041672 JSR RO,@#SAVER :SAVE REGISTERS 
5389 022344 002272 RHWC ;RHWC 1S THE FIRST REGISTER SAVED 
5390 022346 004612 SAVERE ;STARTING ADDRESS OF WHERE 
5391 THE REGISTERS ARE SAVED 
5392 022550 000022 18. ;NUMBER OF REGISTERS 
5393 ;SAVED = 18. 
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5395 
5396 


022352 


022360 
022364 


022370 


022374 
022376 


022400 
022402 
022404 
022406 
022410 


022412 


022462 
022464 


022476 


022500 
022504 
022510 


022512 
022514 
022520 
022524 


022526 
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013777 


013746 
052716 


012677 


000454 


013746 


052716 


011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 


104063 


004606 


002454 
000101 


157704 


002454 
004301 
004722 


004760 
177677 
000100 
004760 
100000 


001124 


001126 
004600 


030500 
001124 


001126 
004600 
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131 


157706 


004760 


87$: 


86$: 


883: 


L 
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OFFSET AND RETURN TO CENTER LINE COMMAND 


MOV 


@ARPGVEC ,ARPVEC 4-4 RPO4 VECTOR ADDRESS 
;10 "TIME" IF P-CLOCK IS PRESEN 
:OR TO 'TIME2’ IF P=CLOCK IS NOT " PRESENT 
;'TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


Q@WOFSETC,-(SP) ;GET READY TO MOVE COMMAND 
#GO'1E, (SP) ;GET READY TO SET ‘GO' AND 
;ENABLE INTERRUPT 
(SP)+,@RHCS1 :60 WITH 
314 IN "RHCS! FOR OF SET 
;WITH INTERRUPT ENABLED 
aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
@R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR DRY BIT TO SET 
sWAIT FOR RHDS1 REGISTER 
WAIT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 10000 ye SECONDS 
DRY MUST SET BETWEEN 
;7000 AND 13000 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


Q#OFSETC,-(SP) ;SAVE COMMAND 
WOVA!IGO!IE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 


@#NUNIT ;ARE THERE MORE THAN ONE UNIT 

87$ ;BRANCH IF ONLY ONE UNIT 

RO, a#TMP4 ;GET RHCS1 

#*CIE ,a#TMP4 sKEEP IE BIT 

WIE, (SP) ;CLEAR IE IN GOOD DATA 

Qa TMP4 , (SP) GET IE AS IS 

WSC, (SP) :SET SC IN RHCS1 

(SP),a#$GDDAT  ;SAVE FOR PRINTOUT 

(SP)+,RO ;DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
;AND COMMAND SHOULD BE SET 

86$ ;BRANCH IF GOOD 

RO,a#$BDDAT :BAD DATA 

R1,Q#REGADR sFAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 


:COMMAND AND DVA!GO'IE!RDY SHOULD BE SET 
#PIP!MOL!DPR!VV,-(SP) | ;SAVE BITS SET DURING OPERATION IN RHDS1 
(SP),@#$GDDAT ;SAVE FOR PRINTOUT 
(SP)+,R5 ;DURING ABOVE OPERATION ONLY PIP! MOL! DPR‘ VV 

;SHOULD BE SET 
88% ;BRANCH IF GOOD 
R5,a#S$BDDAT ;BAD DATA 
R3,Q#REGADR sFAILING REGISTER RHDS1 
63 ;DURING ABOVE OPERATION ONLY 

;PIP!MOL!DPR!VV SHOULD BE SET 


SEQ 0115 
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022540 


022542 
022546 


022550 
022552 
022554 


022556 


022564 
022570 


022600 


022602 
022604 


022606 


022614 


022624 
022626 
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004037 
002300 


000001 
000001 
100000 


004037 
002322 


000001 
000001 
100000 


053737 


004037 
004612 


022606 


104024 
000207 


013777 


004737 


000240 
013777 


09:03 


042404 


042404 


004740 


042512 


004740 


041604 


002456 
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004636 


2$: 


157502 3$: 


157444 


s*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a@#CHREG 
RHCS1 

1 

1 

sc 

JSR RO, a#CHREG 
RHDS1 

1 

1 

ATA 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF SC IS 1 
;CHANGE SC BIT 


;CHANGE BITS IN SAVED REGISTER 
; CHANGE RHDS1 REGISTER 


:1 BIT/BITS TO BE CHANGED 
sNEW VALUE OF ATA IS 1 
;CHANGE ATA BIT 


BIS Q#ATTENT ,Q@#SAVERE +24 SET APPROPRIATE ‘ATA* BITS 


;FOR WORKING DRIVE IN 
;SAVED RHAS LOACTION 


;*NOW COMPARE REGISTERS AFTER AN OFSET COMMAND 


JSR RO, a#COMREG 
SAVERE 


ERROR 24 
RTS PC 


MOV Q#ATTENT,@RHAS 


;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC" 
318. REGISTERS TO BE COMPARED 
;RETURN TO 2$ ON ERROR 

;RETURN TO 3$ ON NO ERROR 


;OFFSET COMMAND CAUSED AN ERROR 
:GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER AN OFFSET COMMAND 


;CLEAR WORKING DRIVE ATTENTION 


:tNOW A RETURN TO CENTER LINE COMMAND WILL BE GIVEN 


ppeeewereeererereteereterereerereg renee Keeeeeeerneeeee eee eee eS 


JSR PC ,a#CHECKT 


MOV Q#RETCL ,ARHCS1 


;CHECK DVA,RDY,MOL,DPR & VV = 1 
;CHECK THAT ALL OTHER BITS = 0 
UNLIKE THE OTHER STATUS BIT TESTS, 

; THERE 1S NO HALT IF IT FAILS = IT IS 


;USED IN THE MIDDLE OF A SINGLE TEST 
;GET READY FOR RETCL 
;RETURN TO CENTER UTNE WITH 16 IN RHCS1 


>*NOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND 


SEQ 0116 
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5507 
5508 022634 ogg ti 041672 JSR RO, @#SAVER 4 ane REGISTERS 
5509 022640 002272 RHWC HWC 1S THE FIRST REGISTER SAVED 
5510 022642 004612 SAVERE STARTING ADDRESS OF WHERE 
5511 ; THE REGISTERS ARE SAVED 
5512 022644 000022 18. : NURBER OF REGISTERS 
Ht te 
5515 022646 013777 004606 157412 MOV O#RP4VEC ,ARPVEC 44 RPO4 VECTOR ADDRESS 
5516 "TIME1' IF P-CLOCK IS PRESENT 
5517 ‘OR TO 'TIME2' IF P-CLOCK IS NOT PRESENT 
5518 ;'TIME’ WILL ONLY SAVE 
5519 :CURRENT CYLINDER ADDRESS 
5520 ;AND LOOK AHEAD REGISTERS 
3) | 
5523 022654 013746 002456 MOV «. -Q@WRETCL,-(SP)  ;GET READY TO MOVE COMMAND 
5524 022660 052716 000101 BIS GO!IE, (SP) ;GET READY TO SET ‘GO AND 
5525 3° ENABLE INTERRUPT 
5526 022664 012677 157410 MOV (SP)+,@RHCS1 :G0 WITH 
5527 ;16 IN RHCS1 FOR RETURN TO CENTER LINE 
5528 ;WITH INTERRUPT ENABLED 
5529 022670 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
s3a0 022672 011305 MOV @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
5532 
5533 022674 104413 WAT ;WAIT FOR DRY BIT TO SET 
5534 022676 002322 RHDS1 ;WAIT FOR RHDS1 REGISTER 
5535 022700 000200 DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
5536 022702 001750 1000. ;ALLOW 10000 MICRO SECONDS 
5537 022704 001750 1000. ;DRY MUST SET BETWEEN 
444 :00 AND 20000 MICRO SECONDS 
5540 :*COMPAITE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
3305 ;*RO AND RS IMMEDIATELY AFTER GO 
5543 022706 013746 002456 MOV Q@#RETCL,-(SP) ;SAVE COMMAND 
5544 022712 052716 0043501 BIS #DVA'GO‘IE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 
5545 022716 005737 004722 TST @#NUNIT ARE THERE MORE THAN ONE UNIT 
5546 022722 001413 BEQ 90$ ;BRANCH IF ONLY ONE UNIT 
5547 022724 010037 004760 MOV RO, aa TMP4 :GET RHCS1 
5548 022730 042737 177677 004760 BIC #*CIE Qe TMP4 ;KEEP IE BIT 
5549 022736 042716 000100 BIC WIE, (SP) :CLEAR IE IN GOOD DATA 
5550 022742 053716 004760 BIS aw MP4, (SP) :GET IE AS IS 
5551 022746 052716 100000 BIS WSC, (SP) ;SET SC IN RHCS1 
5552 022752 90$: 
5553 022752 011637 001124 MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 
5554 022756 022600 CMP (SP)+,R0 ;DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
5555 ;AND COMMAND SHOULD BE SET 
5556 022760 001405 BEQ 89% BRANCH IF GOOD 
5557 022762 010037 001126 MOV RO,a#$BDDAT :BAD DATA 
5558 022766 010137 004600 MOV R1,@#REGADR ;FAILING REGISTER RHCS1 
5559 022772 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY 
5560 ;COMMAND AND DVA!GO!IE!RDY SHOULD BE SET 
5561 022774 012746 030500 89$: MOV #PIP'MOL'DPR'VV,-(SP) | ;SAVE BITS SET DURING OPERATION IN RHDS1 
5562 023000 011637 001124 MOV (SP), @#$GDDAT ;SAVE FOR PRINTOUT 
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Wyn vu 
WAM 
SSN 


023004 


023020 
023022 


023022 
023026 


023030 
023032 
023034 


023036 
023042 


023044 
023046 
023050 
023052 
023060 


023064 
023066 


023070 


023074 


023110 


023112 


023112 


023116 


28-MAR-79 


022605 
001405 


104063 


004037 
002300 


000001 
000001 
100000 


004037 
002322 


000001 
000001 
100000 
053737 
004037 


002310 
116000 


004037 


004612 


000207 


004737 


105237 


09:03 


001126 
004600 


042404 


042404 


004740 


041426 


042512 


041524 


004610 
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004636 


91$: 


4$: 


5$: 
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CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY PIP!MOL!DPRi vv 
;SHOULD BE SET 

BEQ 91$ ;BRANCH IF GOOD 

MOV R5 ,a#SBDDAT ;BAD DATA 

MOV R3,a#REGADR ;FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 
;PIP!MOL!DPR!VV SHOULD BE SET 


;*NOW CHANGE SAVED REGISTER TO EXPECTED VALUE 


JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ;CHANGE RHCS1 REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF SC IS 1 

sc ;CHANGE SC BIT 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ; CHANGE RHDS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 

ATA ; CHANGE ATA BIT 


BIS Q#ATTENT ,QMSAVERE+24 ;SET APPROPRIATE ‘ATA® BITS 
:FOR WORKING DRIVE IN 
; SAVED RHAS LOACTION 


JSR RO,a#F ILLRE ;MOV BITIS!HCI!ECI!FMT22 INTO SAVED RHOF 
RHOF ; SAVED REGISTER TO CHANGE 
BITIS!HCI!ECI!FMT22 :DATA 


>*NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 


SAVERE GOOD DATA SAVED IN ‘SAVERE' 
we TEST DATA STARTING FROM 'RHWC' 
18. 318. REGISTERS TO BE COMPARED 
4$ ;RETURN TO 4$ ON ERROR 
5$ ;RETURN TO 5$ ON NO ERROR 
ERROR 25 ;RETURN TO CENTERLINE 
RTS PC ;COMMAND CAUSED AN ERROR 

:GOOD DATA HAS WHAT SHOULD 

;BE THERE 


RECEIVED DATA HAS WHAT WAS 
; THERE AFTER COMMAND 


JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


INCB O#OFSTVL ;GET NEXT OFFSET VALUE 


SEQ 0118 


+ 
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023122 


023140 


023144 
023146 
023150 


132737 


0 
105737 


001001 
000402 
000137 


000100 


000100 
004610 


022166 
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004610 
004610 


6$: 
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#100,a#OF STVL : SEE If UNUSED BIT 6 IS ON 
7$ NO SO DO SOME MORE 


#100,a#OFSTVL YES SO BY-PASS IT 

@#OFSTVL :1f ZERO ALL COMBINATIONS ARE 
6$ :BRANCH IF 377 of DONE 

1STSe) og BRANCH TO NEXT TEST 

avis ; JUMP BECAUSE 377 NOT DONE 


SEQ 0119 
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5628 ppeeeeeereeeeerererreeeeerererererrretereeeeeeeeeeeeeeATAeA eee 
ro? s*TEST 32 OFFSET COMMAND . 4 
203) :* THIS TEST WILL ONLY GIVE REPEATED OFFSETS 
5633 pyeeeeeeeeeeeeeeeeeeerereeeet rere eee eee eee ATA eee 
5634 023154 000004 TST32: SCOPE 
5635 023156 012737 000764 004756 MOV # 500.,a#TMP1  ;COUNTER 
5636 023164 1$: 

5637 023164 012706 001000 MOV #STACK,SP sRESET STACK 

2638 023170 012737 000032 004604 MOV #32, aaTSTNM SAVE TEST NUMBER 

5649 023176 004737 041524 JSR PC, a#CLDISK SET R1-RHCS1, R2-RHCS2 

5641 yR3-RHDS1, R4=RHERI 

5642 GIVE RH-11 INITIALIZE 

5643 ;SETUP UNIT NUMBER 

5644 023202 004737 041604 JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
5645 AND THAT NO STATUS BITS ARE STUCK = 1 
5646 023206 104401 067033 TYPE ,CPHALT CANNOT CONTINUE TESTING IF ANY OF 
5647 THE FIRST SET OF BITS DON'T = 1 
5648 023212 000000 HALT :STOP 

5649 023214 004037 041510 JSR RO, a#OF SET : OF SET 

5650 023220 000260 260 :260 IN OFSET REGISTER 

5651 :OFSET -1200 MICRO INCHES 

335 

5654 023222 013746 002454 MOV Q#OFSETC,-(SP) ;GET READY TO MOVE COMMAND 

5655 023226 052716 000101 BIS A#GO'IE, (SP) :GET READY TO SET ‘GO’ AND 

5656 ENABLE INTERRUPT 

5657 023232 012677 157042 MOV (SP)+,@RHCS1 :G0 WITH 

5658 :14 IN RHCS1 FOR OFSET 

che WITH INTERRUPT ENABLED 

5661 023236 104413 WAT :WAIT FOR DRY BIT TO SET 

5662 023240 002322 RHDS1 :WAIT FOR RHDS1 REGISTER 

5663 023242 000200 DRY :;WAIT FOR DRY BIT IN RHDS1 REGISTER 
5664 023244 000536 350. ALLOW 3500 MICRO SECONDS 

5665 023246 000536 350. :DRY MUST SET BETWEEN 

5666 :00 AND 7000 MICRO SECONDS 

5667 023250 032777 040000 157044 BIT #ERR,@RHDS1 71S ERR SET? 

5668 023256 001417 BEQ 2$ 3NO 

5669 023260 104026 ERROR 26 REPEATED OFFSETS CAUSED AN ERROR 
670 023262 000004 SCOPE 

$672 023264 004737 041524 JSR PC, a#CLDISK SET R1-RHCS1, R2-RHCS2 

5673 >R3-RHDS1, R4-RHER1 

5674 GIVE RH-11 INITIALIZE 

gor? :SETUP UNIT NUMBER 

5677 023270 013746 002426 MOV Q#RECALI,-(SP) ;GET READY TO MOVE COMMAND 

5678 023274 052716 000101 BIS MGO'IE, (SP) :GET READY TO SET ‘GO’ AND 

5079 ENABLE INTERRUPT 

5680 023300 012677 156774 MOV (SP)+,@RHCS1 :G0 WITH 

5681 :6 IN RHCS1 FOR RECALIBRATE 

5682 :WITH INTERRUPT ENABLED 
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CZRJIDO, RPOS/5/6 FCTNL CTLRI 
CZRJID.P11 28-MAR-79 09:03 132 OFFSET COMMAND SEQ 0121 
5684 023304 104413 WaT ;WAIT FOR DRY BIT TO SET 
5685 023306 002322 RHDS1 ;WAIT FOR RHDS1 REGISTER 
5686 023310 000200 DRY ;WAIT FOR DRY BIT IN yy cine 
5687 023312 060650 25000. ;ALLOW 250000 MICRO SECOND 
5688 023314 060650 25000. ;DRY MUST SET BETWEEN 
5689 :00 AND 500000 MICRO SECONDS 
5690 023316 005337 004756 2$: DEC aa TMP) ; COUNT DOWN 
5691 023322 001401 BEQ $153 BRANCH IF DONE 
5692 023324 000717 BR 1$ ;GO BACK AND DO IT AG'EN 


F 10 
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CZRJID.P11 28-MAR-79 09:03 READ/WRITE TESTS USING MEDIA SEQ 0122 
5694 -SBTTL READ/WRITE TESTS USING MEDIA 
5695 ppeeeeeeererererrererereetereeereeetereeeeteeeeeeeeeeetereereTee 
re ;*TEST 33 WRITE/READ HEADER AND DATA (0'S) 
5698 hd WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
4 +44 Sed ay 0, SECTOR 0, KEYS=0, NUMBER OF WORDS 256 WORDS 
* 
5701 :* THEN READ HEADER AND DATA FOR ABOVE. 
5702 :® WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
5703 id 10000,0,0,0, AND 256 OF 0 
5704 3¢ THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
5705 7 THE GO BIT, AND ALL THE REGISTERS ARE SAVED 
gree “be THEN GO IS GIVEN FOR WRITE HEADER AND DATA 
+ 
5708 :* THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
erp ;# THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
: tt 
5711 ;e 
5712 id NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 
5713 Med WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT 
5714 s@ GO BIT AND ALL REGISTERS ARE SAVED 
Rie 7¢ GO 1S GIVEN FOR THE READ COMMAND 
:* 
5717 3* ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
At 7 THEN THE READ DATA IS COMPARED. 
5720 pp eeeeeeeeee etter eee etree eee eee eee 
5721 023326 000004 TST33: SCOPE 
5722 023330 012706 001000 MOV #STACK, SP ;RESET STACK 
gig? 023334 012737 000033 004604 MOV #33, aa#TSTNM ;SAVE TEST NUMBER 
4 
5725 023342 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
5726 ;R3-RHDS1, R4-RHER1 
5727 GIVE RH-11 INITIALIZE 
arse ; SETUP UNIT NUMBER 
5730 ;*FILL WRITE FROM BUFFER WITH HEADER 
5732 
5733 023346 004037 041350 JSR RO,@#FLHEAD ;SAVE HEADER DATA IN WRFROM 
5734 023352 002470 ad WRFROM ;LOCATION WHERE SAVED 
5735 023354 000004 4 ;NUMBER OF WORDS SAVEC 
5736 023356 010000 10000 ;FIRST DATA WORD 
5737 023360 000000 0 ;SECOND DATA WORD 
5738 023362 000000 0 ; THIRD DATA WORD 
4544 023364 000000 0 ;FOURTH DATA WORD 
bees S*FILL WRITE FROM BUFFER WITH DATA 
574 
5743 023366 004037 041574 JSR RO,@#CLAREA sCLEAR 256. WORDS, FROM WRFROM+10 
5744 023372 002500 WRFROM+10 STARTING FROM WRFROM+10 
5745 023374 000400 256. :256. WORDS 
5746 023376 000000 0 sFILL WITH 0 
5747 
5748 
5749 ;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 


Zz 


023430 


023432 


023442 
023444 


023446 
023450 


023452 


023454 
023460 
023462 


023464 


023466 
023472 
023476 
023500 


P04/5/6 FCTNL CTLRI 
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004037 
34 


000000 


004037 
000000 
000 
000 
177374 
002470 


000000 
010000 


002444 


004037 
002272 
004612 


000021 


004737 
104401 
000000 
013777 


041350 


041374 


043476 


041672 


041604 
067033 


004606 


MACY11 30A(1052) 
133 


156560 


-BYTE 
-BYTE 
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WRITE/READ HEADER AND DATA (0°S) 


tAS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
*CAN BE MADE TO MAKE SURE THAT WRITE DID NO 
*CHANGE WRITE FROM BUFFER 

FOURTH DATA WOR 


F SEQ 0123 
: 1 | 
J ° b4 
NTO s ED 

& 3 
0 : 
0 : D 
JSR ’ Ps ’ 

+10 sSTAR 
256. 3256. WORDS 
0 sFILL WITH O 
:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 sCYLINDER 0 
0 sSECTOR 0 
0 s TRACK 0 
-256.-4 sWORD COUNT (DATA) = 256. + 


RO,@#CLAREA CLEAR 256. WORDS, FROM REINTO+10 

REINTO STARTING FROM REINTO+10 
4 HEADER WORDS 

WRF ROM ;BUS ADDRESS 


> STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 

700 NOT INHIBIT ECC CORRECTION 

;DO0 NOT INHIBIT HEADER COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 

WRITE HEADER AND DATA WITH 62 IN RHCS1 


SR RO, @#FLHEAD SAVE HEADER DATA IN REINTO 
RE] LOCATION WHERE SAV 
NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 
SECOND DATA WORD 
0 THIRD DATA WORD 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


JSR RO, a#SAVER 7SAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
sTHE REGISTERS ARE SAVED 
17. ;NUMBER OF REGISTERS 
;SAVED = 17. 


JSR PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

;AND THAT NO STATUS BITS ARE STUCK = 1 
;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 

HALT ; STOP 


TYPE ,CPHALT 


MOV O#RP4VEC ,ARPVEC ‘=. RPO4 VECTOR ADDRESS 
TO 'TIME1' IF P-CLOCK IS PRESEN 
“OR TO 'TIME2" IF P=CLOCK IS NOT "PRESENT 
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CZRJIDO, RPO4/5/6 445 CTLRI 
CZRJID.P11 28-MAR-79 09:03 133 WRITE/READ HEADER AND DATA (0'S) SEQ 0124 
5806 ;"TIME’ WILL ONLY SAVE 
5807 : CURRENT CYLINDER ADDRESS 
5808 :AND LOOK AHEAD REGISTERS 
39 
5811 023506 013746 002444 MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
5812 023512 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET ‘GO’ AND 
5813 sENABLE INTERRUPT 
5814 023516 012677 156556 MOV (SP)+,@RHCS1 G0 WITH 
5815 :62 IN RHCS1 FOR WRITE HEADER AND DATA 
5816 WITH INTERRUPT ENABLED 
5817 023522 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
aie 023524 011305 MOV aRr3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
cast :*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 
5822 
5823 023526 104413 WAT WAIT FOR RDY BIT TO SET 
5824 023530 002300 RHCS1 sWAIT FOR RHCS1 REGISTER 
5825 023532 000200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
5826 023534 001614 908. sALLOW 9080 MICRO SECONDS 
5827 023536 001507 839. :RDY MUST SET BETWEEN 
pecs :690 AND 17470 MICRO SECONDS 
5830 :*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
th :*RO AND RS IMMEDIATELY AFTER GO 
5833 023540 013746 002444 MOV A#WRIFOR,-(SP) ;SAVE COMMAND 
5834 023544 052716 004101 BIS #IE'GO'DVA,(SP) ; INCLUDE IE!GO!DVA 
5835 023550 011637 001124 MOV (SP), ,@#$GDDAT  ;SAVE FOR PRINTOUT 
5836 023554 022600 CMP (SP)+,RO sDURING ABOVE OPERATION ONLY IE:GO!DVA 
5837 :AND COMMAND SHOULD BE SET 
5838 023556 001405 BEQ 64$ BRANCH IF GOOD 
5839 023560 010037 001126 MOV RO, a#$BDDAT ;BAD DATA 
5840 023564 010137 004600 MOV R1,a#REGADR :FAILING REGISTER RHCS1 
5841 023570 104021 ERROR 21 sDURING ABOVE OPERATION ONLY 
5842 :COMMAND AND IE'GO!DVA SHOULD BE SET 
5843 023572 012746 010500 64$: MOV #MOL!DPR'vv,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
5844 023576 011637 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 
5845 023602 022605 CMP (SP)+,R5 DURING ABOVE OPERATION ONLY MOL!DPRivv 
5846 ;SHOULD BE SET 
5847 023604 001405 BEQ 66$ BRANCH IF GOOD 
5848 023606 010537 001126 MOV R5,a#$BDDAT :BAD DATA 
5849 023612 010337 004600 MOV R3,a#REGADR sFAILING REGISTER RHDS1 
5850 023616 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 
5851 :MOL'DPR'VV SHOULD BE SET 
He 023620 66$: 
ate} :*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5856 023620 004037 041426 JSR RO, @#FILLRE :MOvV 0 INTO SAVED RHWC 
5857 023624 002272 RHWC sSAVED REGISTER TO CHANGE 
5858 023626 000000 0 :DATA 
5859 023630 004037 041426 JSR RO, aF ILLRE ;MOV WRFEROM+<260.*2> INTO SAVED RHBA 


5860 023634 002274 RHBA ;SAVED REGISTER 10 CHANGE 
5861 023636 003500 WRFROM+<260,*2> ;DATA 


















































































023640 
023644 
023646 


023650 
023654 


023664 


023666 
023670 


023672 
023672 


023714 
023714 


023720 


023730 
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004037 041426 
002304 


000001 


004037 
004612 
002354 
023672 


104027 
000207 


004037 


003534 


023714 


104030 
000207 


004737 


004037 
003534 
000404 
177777 


09:03 


042512 


043542 


041524 


041374 
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1$: 


2$: 


3$: 


4$: 


25-MAY-79 


JSR RO, a#F ILLRE 
“seh 


1 10 
10:30 PAGE 
WRITE/READ HEADER AND DATA (0°S) 


126 


;MOV 1 INTO SAVED RHDST 
4 ty REGISTER TO CHANGE 


;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG 
SAVERE 
W 


ERROR 27 
RTS PC 


;*NOW WRITE FROM BUFFER 
;*NOTHING GOT CHANGED 


JSR RO,a#COMPAR 


ERROR 30 
RTS PC 


;*NOW A READ HEADER AND 


;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
;GOOD DATA SAVED IN ‘SAVERE' 


TEST DATA STARTING FROM *RHWC' 


317. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
RETURN TO 2$ ON NO ERROR 


;WRITE HEADER AND DATA 
;CAUSED IMPROPER REGISTER 

; CHANGE 

:GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

;RECEIVED DATA GIVES WHAT 
[WAS THERE AFTER COMMAND 


WILL BE CHECKED TO SEE THAT 


;COMPARE TWO BLOCKS OF MEMORY 
:GOOD DATA STARTS FROM REINTO 
; TEST DATA STARTS FROM WRFROM 
:260. WORDS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;WRITE HEADER AND DATA 
; CHANGED WRITE FROM BUFFER 


DATA COMMAND WILL BE GIVEN 


;*READ INTO BUFFER IS FILLED WITH ONES 


JSR PC ,a#CLDISK 


JSR RO, @#CLAREA 
REINTO 
5 


;*NOW FILL COMMAND 


;SET R1-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHER1 

GIVE RH-11 INITIALIZE 

;SETUP UNIT NUMBER 

CLEAR 260. WORDS, FROM REINTC 
STARTING FROM REINTO 

3260. WORDS 

sFILL WITH =1 






SEQ 0125 








CZRJ1DO, RPO4/5/6 FCTNL CTLRI 
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023732 


023742 
023744 


023746 
023750 


023752 


023754 
023760 
023762 


023764 


023766 
023772 
023776 
024000 


024006 
024012 
024016 


024022 
024024 


024026 


024034 
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004037 
000000 
000 
000 
177374 
003534 


000000 
014000 


002450 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


001614 
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043476 


041672 


041604 
067033 


004606 


002450 
000101 


156256 
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156260 


-BYTE 
-BYTE 


J_10 
25-MAY-79 10:30 PAGE 127 
WRITE/READ HEADER AND DATA (0°S) 


es RO, a#RUN ; SETUP i we FOR DATA COMMAND 
0 ; SECTOR 0 
0 0 


CK 

-256.-4 :WORD COUNT (DATA) = 256. ¢ 

74 HEADER WORDS 
REINTO :BUS ADDRESS 

;STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO A REFOR 

[READ HEADER AND DATA WITH 72 IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
JSR RO, @#SAVER ;SAVE REGISTERS 


RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
s THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,a#CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE »CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
sTHE FIRST SET OF BITS DON'T = 1 
HALT ;STOP 


MOV O#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
:10 "TIME 1® IF P-CLOCK IS PRESENT 


;OR TO 'TIME2* IF P-CLOCK 1S NOT PRESENT 


;"TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @#REFOR,-(SP)  ;GET READY TO MOVE COMMAND 
BIS #GO!1E,(SP) ;GET READY TO SET ‘GO" AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 G0 WITH 
;72 IN RHCS1 FOR READ DATA 
WITH INTERRUPT ENABLED 


MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT WAIT FOR RDY BIT TO SET 

RHCS1 Sera FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ALLOW 9080 MICRO SECONDS 


SEQ 0126 


CZRJIDO, RPOG/5/6 ect 


CZRJID.P11 


5974 
5 


024036 


024040 


024054 
024056 


024070 
024072 
024076 
024102 


024104 
024116 


024120 


024120 


024144 
024146 


024150 
024154 


024164 


024166 
024170 


28-MAR- 
001507 


013746 


022600 
001405 


104021 
012746 
011637 
022605 


001405 


104063 


004037 


000001 


004037 
004612 


024172 


104031 
000207 


on 
o-4 
ow 
L~a— 


002450 
004101 
061124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


042512 
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67$: 


69$: 


5$: 
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WRITE/READ HEADER AND DAT 
839. 


> *COMPARE CONTENTS OF RHC 
;*RO AND RS IMMEDIATELY AF 


MOV @#REFOR ,-(SP) 
BIS #W1E!GO!DVA, (SP) 
MOV (SP) ,a#SGDDAT 
CMP (SP)+,RO 


8 
A (0°S) 


sRDY MUST SET BETWEEN 
7690 AND 17470 MICRO SECONDS 


$1 AND RHDS1 ALREADY SAVED IN 
TER GO 


SAVE COMMAND 

; INCLUDE IE!GO!DVA 

;SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY IE!GO!DVA 


;AND COMMAND SHOULD BE SET 


67$ 
MOV RO ,a#$BDDAT 
MOV R1,a#REGADR 


;BRANCH IF GOOD 

;BAD DATA 

sFAILING REGISTER RHCS1 
:DURING ABOVE OPERATION ONLY 


; COMMAND AND IE!GO!DVA SHOULD BE SET 


;SAVE BITS SET DURING OPERATION IN RHDS1 
SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL!DPR! VV 


; SHOULD BE SET 


ERROR 21 

MOV #MOL! DPR! VV,-(SP) 
MOV (SP) ,a#$GDDAT 

CMP (SP)+,R5 

BEQ 


69% 
MOV R5,a#$BDDAT 
MOV R3,Q#REGADR 
ERROR 63 


;BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


> *CHANGE SAVED REGISTERS 


JSR RO,@#F ILLRE 
RHWC 


0 
JSR RO,a#F ILLRE 


RHBA 
REINTO+<260.*2> 

JSR RO,a#FILLRE 
“waed 


;*COMPARE REGISTER BEFORE 
s*WITH REGISTERS AFTER CO 


JSR RO, a#COMREG 


TO EXPECTED VALUES 


;MOV 0 INTO SAVED RHWC 
; SAVED REGISTER TO CHANGE 


;DATA 
;MOV REINTO+<260.*2> INTO SAVED RHBA 


; SAVED es Hg TO CHANGE 
;MOV 1 INTO SAVED RHDST 


: SAVED REGISTER TO CHANGE 


READ HEADER AND DATA 
MMAND 


;COMPARE SAVED REGISTERS WITH 


PRESENT VALUE 


SAVERE 


wC 
18. 
5$ 
6$ 
ERROR 31 
RTS PC 


;GOOD DATA SAVED IN ‘SAVERE* 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


+ READ HEADER AND DATA CAUSED 


; IMPROPER REGISTER CHANGE 
:GO0D DATA GIVES WHAT SHOULD 
BE THERE 


;RECEIVED DATA GIVES WHAT WAS 


SEQ 0127 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJ1O.P11 


024172 
024172 


024206 


024210 
024212 


024214 
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004037 043542 
002470 


024214 


104032 
000207 
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6$: 


7$: 


10$: 


25-MAY-79 


L 10 
10:30 PAGE 1 


29 
WRITE/READ HEADER AND DATA (0°S) 


; THERE AFTER COMMAND 


;*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
>*THE READ WAS GOOD 


ERROR 
RTS 


RO, a#COMPAR 


32 
PC 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 


;260. WORDS TO BE COMPARED 
RETURN TO 7$ ON ERROR 
;RETURN TO 10% ON NO ERROR 


;WRITE HEADER AND DATA 
;FOLLOWED BY A READ HEADER 
;AND DATA GAVE A READ ERROR 
;ERROR MAY BE IN READ OR WRITE 


SEQ 0128 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 


CZRJID.P11 


024214 
024216 
024222 


0242350 


024234 
024240 
024242 
024244 


024246 


024260 


024262 
024264 


024266 


024270 
024274 
024276 


024300 
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000004 
012706 
012737 


004737 


004037 
002470 
000400 
000000 


004037 
000000 
000 


000 
177400 
003534 


000000 
014000 


002446 


004037 
002272 
004612 


000022 


001000 


000034 


041524 


041374 


043476 


041672 
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004604 
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WRITE/READ HEADER AND DATA (0°S) 


seeeeeererereeeeeeeeteteeeerereeeeeeeeeeeeeeeeteetereeee eee eee 


READ DATA INTO ‘READ INTO’ BUFFER IS CHECKED 


s*TEST 34 READ DATA (0'S) 

ba THIS TEST READS DATA WRITTEN BY THE PREVIOUS TEST 
3® THE WRITE FROM BUFFER IS FILLED WITH ALL 0S 

ha THE COMMAND 1S FILLED, THEN ALL REGISTERS SAVED 
:* THEN READ DATA COMMAND IS GIVEN 

be ALL REGISTERS ARE COMPARED FOR PROPER VALUES 

'* 


MPRA PRRRSESZAREALASLEALLEALE SES ESSERE SESE R SER EERE RASA RARER RRR RRR ES SS 


TST34: 


MOV #STACK,SP 
MOV #34 ,0#TSTNM 


JSR PC ,a#CLDISK 


;RESET STACK 
;SAVE TEST NUMBER 


;SET R1-RHCS1, — 
;R3-RHDS1, R4-RHER 

;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


s*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO,@#CLAREA 
WRF ROM 

256. 

0 


:CLEAR 256. WORDS, FROM WRFROM 
sSTARTING FROM WRFROM 

3256. WORDS 

sFILL WITH O 


;*NOW THE READ DATA COMMAND WILL BE FILLED 


JSR RO, a#RUN 


-256. 
REINTO 


0 
ECI!FMT22 


READAT 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
SECTOR 0 


0 
:WORD COUNT = 256. 
;BUS ADDRESS 


STARTING yt ty OF DATA 


;BUFFER = REIN 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
READY TO DO A READAT 


;GET 
;READ DATA WITH 70 IN RHCS1 


7*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, a#SAVER 
RHWC 
SAVERE 


18. 


;SAVE REGISTERS 

sRHWC 1S THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 

THE REGISTERS ARE SAVED 

NUMBER _OF REGISTERS 

;SAVED = 18. 


SEQ 0129 


CZRJIDO, RPO4/5/6 At 


CZRJID.P11 


024302 
024306 
024312 
024314 


024322 
024326 


024332 


024336 
024340 


024342 


024352 


024354 
024360 
024364 
024370 


024372 


024404 


024406 
024412 
024416 


024420 
024422 
024426 
024432 


024434 
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004737 
104401 
000000 
013777 


013746 
052716 


012677 


001507 


013746 


022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 


104063 


004606 


002446 
000101 


155742 


002446 
004101 
001124 


001126 
004600 


oe 


01 
001124 


001126 
004600 


MACY11 30A(1052) 
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155744 


648: 


66$: 


nN 10 
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READ DATA (0°S) SEQ 0130 


JSR PC ,@#CHECKT sCHECK DVA,RDY,MOL ,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 


TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


MOV QARP4VEC,ARPVEC ; 47) RPO4 VECTOR ADDRESS 
O ‘TIME1’ IF P-CLOCK IS PRESENT 
‘OR TO "TIME2' IF P-CLOCK IS NOT PRESENT 
;'TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @AREADAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO'IE, (SP) ;GET READY TO SET ‘GO" AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


:70 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 


MOV aR1,R0 SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 ; SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 borg FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 


7690 AND 17470 MICRO SECONDS 


:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV Q@#READAT,-(S°) ;SAVE COMMAND 
BIS MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 


CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,Q@#REGADR sFAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV WMOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP) ,a#$GDDAT ; SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPRiVV 
;SHOULD BE SET 

BEQ 66% ; BRANCH Y GOOD 

MOV RS ,a#$BDDAT :BAD DATA 

MOV R3,Q#REGADR ;FAILING REGISTER RHDS1 

ERROR 65 :DURING ABOVE OPERATION ONLY 


:MOL'DPR'VV SHOULD BE SET 
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024530 
024532 
024536 


024544 


024550 
024554 
024556 
024560 


024562 
024566 
024570 
024572 


024574 
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000004 
012706 
012737 


004737 


004037 
002470 
000310 
177777 


004037 


125252 


004037 


1 
09:03 


001000 
000035 


041524 


041374 


041374 


041374 


MACY11 30A(1052) 
134 


004604 


Cc 11 
25-MAY-79 10:30 PAGE 153 
READ DATA (0°S) 


sy eteerererrerererererereereeeterieereereneterenenereneeeeeeTeAee 


TeTEST 35 WRITE/READ DATA (41'S & 125252) 


eo. e Be Se Be Be oe 
eeeerer#erntrtrnerterntereeenerneeereeeeee 


Be Se Se Se Se Be Se Se Be Se Se Se Se Se Se Se Se Se Se Be Se Se Se 


THIS TEST GIVES A WRITE DATA COMMAND FRO CYLINDER 0 

TRACK 0, SECTOR 0, KEYS 0, 200 WORDS OF ALL ONES 

THIS SECTOR IS FORMATED BY PREVIOUS TEST 

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN 

SAME CYLINDER, TRACK, SECTOR, KEYS 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 

200 ONES AND 56 125252 

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS 

AND 56 OF 377, WRITE FROM BUFFER IS FILLED WITH 200 ONES 
AND 56 OF 377. 

THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
GO IS GIVEN 


ALL REGISTERS ARE CHECKED 
READ DATA IS CHECKED 


Ree eeeeeeeeeeeeeeeeeeeeeeeeeteeeeAeheketeeteeeeeeeeeeeeeee 


1S135: 


SCOPE 

MOV #STACK,SP ;RESET STACK 

MOV #35,Q#TSTNM ;SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER| 
;GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 
7*NOW FILL WRITE FROM BUFFER -200 OF 1°S AND 56 OF 125252 


JSR RO,@#CLAREA ;CLEAR 200. WORDS, FROM WRFROM 


WRF ROM STARTING FROM WRFROM 
200. :200. WORDS 
=| sFILL WITH =1 


JSR RO,@#CLAREA CLEAR 56. WORDS, FROM WRFROM+<200.*2> 


WRFROM+<200,*2> STARTING FROM WRFROM+<200, *2> 
56. 356. WORDS 
125252 sFILL WITH 125252 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
7*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO, Q#CLAREA CLEAR 200. WORDS, FROM REINTO 


SEQ 0132 


dD 11 
CZRJIDO, RPO4/5/6 FCTNL CTLRI MACY11 30A(1052) 25-MAY-79 10:30 PAGE 134 
CZRJID.P11 28-MAR-79 09:03 135 WRITE/READ DATA (1°S & 125252) SEQ 0135 
6264 024600 003534 REINTO sSTARTING FROM REINTO 
6265 024602 000310 200. 3200. WORDS 
ocee 024604 177777 -1 sFILL WITH -1 
6268 024606 004037 041374 JSR RO,@#CLAREA sCLEAR 56. WORDS, FROM REINTO+<200.*2> 
6269 024612 004354 RE INTO*<200 *2> : STARTING FROM REINTO+<200.*2> 
6270 024614 000070 56. 356. WORDS 
ref 024616 125252 125252 sFILL WITH 125252 
6273 : 
6274 s*NOW WRITE DATA COMMAND WILL BE LOADED 
$576 
6277 024620 004037 043476 JSR RO,a#RUN :;SETUP TO RUN FOR DATA COMMAND 
6278 024624 000000 0 s CYLINDER 0 
6279 024626 000 -BYTE 0O sSECTOR 0 
6280 024627 000 -BYTE 0O s TRACK O 
6281 024630 177470 -200. WORD COUNT = 200. 
6282 024632 002470 WRF ROM ;BUS ADDRESS 
6283 sSTARTING ADDRESS OF DATA 
6284 [BUFFER = WRF ROM 
6285 024634 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
6286 024636 010000 FMT22 16 BITS PER WORD FORMAT 
6287 :00 NOT INHIBIT ECC CORRECTION 
6288 :D0 NOT INHIBIT HEADER COMPARE 
6289 024640 002442 WRIDAT ;GET READY TO DO A WRIDAT 
6290 sWRITE DATA WITH 60 IN RHCS1 
6291 
6292 
ose. >*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
6 
6295 024642 004037 041672 JSR RO, a#SAVER ;SAVE REGISTERS 
6296 024646 002272 RHWC sRHWC If THE FIRST REGISTER SAVED 
6297 024650 004612 SAVERE sSTARTING ADDRESS OF WHERE 
6298 s;THE REGISTERS ARE SAVED 
6299 024652 000022 18. sNUMBER OF REGISTERS 
omy sSAVED = 18. 
6302 024654 004737 041604 JSR PC ,a#CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV = i 
6303 sAND THAT NO STATUS BITS ARE STUCK = 1 
6304 024660 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
6305 sTHE FIRST SET OF BITS DON'T = 1 
one 024664 000000 HALT STOP 
6 
6308 024666 013777 004606 155372 MOV Q#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
6309 310 "TIME 1" IF P-CLOCK IS PRESEN 
6310 :OR TO 'TIME2* JF P-CLOCK IS NOT T ORESENT 
6311 :*TIME' WILL ONLY SAVE 
6312 ;CURRENT CYLINDER ADDRESS 
6313 :AND LOOK AHEAD REGISTERS 
rap 
6 
6316 024674 013746 002442 MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
6317 024700 052716 000101 BIS #GO'IE, (SP) ;GET READY TO SET ‘'GO* AND 
6318 sENABLE INTERRUPT 
6319 024704 012677 155370 MOV (SP)+,@RHCS1 760 WITH 





CZRJ1D0, RPOS/5/6 FCTNL CTLRI 
CZRJIO.P11 
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024760 
024764 
024770 
024772 
025004 
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025006 


025034 


025056 
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002300 


001507 


013746 


022600 
001405 
104021 
012746 
011637 
022605 
001405 


104063 


004037 


000001 


004037 


09:03 


002442 
004101 
001124 


001126 
004600 


010500 
001124 


001126 


004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
135 


64$: 


66$: 


E 11 


25-MAY-79 10:30 PAGE 155 
WRITE/READ DATA (1°S & 125252) 


360 IN RHCS1 FOR WRITE DATA 


MOV aR1,R0 
MOV aR3,R5 


WITH INTERRUPT ENABLED 
;SAVE RHC 
;SAVE RHDS1 DURING ABOVE OPERATION 


$1 DURING ABOVE OPERATION 


;*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


WAT ;WALT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 

908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 
3690 AND 17470 MICRO SECONDS 

;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 

MOV Q@#WRIDAT,-(SP) ;SAVE COMMAND 

BIS MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 

MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO, a#S$BDDAT ;BAD DATA 

MOV R1,@#REGADR FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV #MOL !DPR!VV,-(SP) ; SAVE rut SET DURING OPERATION IN RHDS1 

MOV (SP), a#$GDDAT  ; SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPRi VV 
;SHOULD BE SET 

BEQ 66% ;BRANCH IF GOOD 

MOV R5,a#SBDDAT ;BAD DATA 
sFAILING REGISTER RHDS1 


MOV R3,a#REGADR 
63 


;DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO,a#FILLRE 
RHWC 

0 

JSR RO,a#F ILLRE 
RHBA 
WRFROM+<200.*2> 

JSR RO,@#FILLRE 
peer 


:*NOW COMPARE REGISTERS 


; *AFTER COMMAND 


JSR RO, a#COMREG 


:MOV 0 IN 
: SAVED RE 


:DATA 
MOV WRER 
;SAVED RE 


TO SAVED RHWC 
GISTER TO CHANGE 


OM+<200.*2> INTO SAVED RHBA 
GISTER TO CHANGE 


;DATA 
;MOV 1 INTO SAVED RHDST 


; SAVED RE 
TA 


; COMPARE 


GISTER TO CHANGE 


BEFORE WRITE DATA WITH REGISTERS 


SAVED REGISTERS WITH 


SEQ 0134 


RJ1D0, eo ote Ay CTLRI 
28-MAR-79 


CZ 
CZRJID.P 


025042 
025050 
025052 


025054 
025056 


025060 


025060 
025064 


025074 


025076 
025100 


025102 
025102 


025132 
025136 
025140 
025142 


004612 


025060 


104035 
000207 


004037 
003534 


025102 


104036 
000207 


004737 


004037 
003534 
000310 
000000 


004037 
004354 
000070 
000377 


004037 
002470 
000310 
177777 


09:03 


043542 


041524 


041374 


041374 


041374 


MACY11 30A(1052) 
135 


2$: 


3$: 


4$: 


25-MAY-79 10:30 
WRITE/READ DATA (1 


SAVERE 


ERROR 
RTS 


;*NOW WRITE FROM BUFFER 


ERROR 
RTS 


35 
PC 


RO, a#COMPAR 


36 
PC 


F 
"S$ 


E 136 
125252) 


;PRESENT VALUE 

:GOOD DATA SAVED IN 'SAVERE' 
TEST DATA STARTING FROM ‘RHWC’ 
718. REGISTERS TO BE COMPARED 
:RETURN TO 1$ ON ERROR 

;RETURN TO 2$ ON NO ERROR 


;WRITE DATA COMMAND CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 


;BE 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


WILL BE CHECKED FOR NO CHANGE 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
:TEST DATA STARTS FROM WRFROM 
3256. WORDS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;WRITE DATA COMMAND CHANGED 
;WRITE FROM BUFFER 


>*NOW A READ DATA COMMAND WILL BE GIVEN 
;*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF 377 


JSR 


JSR 
REINTO 
200. 

0 


PC ,a#CLDISK 


RO, @#CLAREA 


RO, @#CLAREA 


JSR 
REINTO*<200, .*2> 


377 


:SET R1-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHERI 

:GIVE RH-11 INITIALIZE 

;SETUP UNIT NUMBER 

;CLEAR 200. WORDS, FROM REINTO 
>STARTING FROM REINTO 

3200. WORDS 

sFILL WITH O 


;CLEAR 56. WORDS, FROM REINTO+<200.*¢> 
; STARTING FROM REINTO+<200.*2> 

;56. WORDS 

sFILL WITH 377 


stFILL WRITE FROM BUFFER WITH 200 ONES AND 56 OF 377 


JSR 
WRFRO 
2 


RO,@#CLAREA 


:CLEAR 200. WORDS, FROM WRFROM 
sSTARTING FROM WRFROM 

;200. WORDS 

sFILL WITH =1 


SEQ 0155 


6 11 
CZRJIDO, RPOG/5/6 FCTINL-CTLR1 MACY11 30A(1052) 25-MAY-79 10:30 PAGE 157 


CZRJ10.P11 28-MAR-79 09:03 135 WRITE/READ DATA (1°S & 125252) SEQ 0136 
6432 
6433 025144 0046037 041374 JSR RO, @#CLAREA CLEAR 56. WORDS, FROM WRFROM+<200.#2> 
6434 025150 003310 URFROM?< 200" #2> : STARTING FROM WRFROM*<200. #2> 
6435 025152 000070 56. 756. WOR DS 
6436 025154 000377 377 sFILL WITH 377 
6437 
6438 
6439 :*NOW FILL COMMAND 
6440 
6441 
6442 025156 004037 043476 JSR RO, a#RUN >SETUP TO RUN FOR DATA COMMAND 
6443 025162 000000 0 CYLINDER 0 
6444 025164 000 -BYTE 0 :SECTOR 0 
6445 025165 000 BYTE 0 : TRACK 0 
6446 025166 177470 -200. :WORD COUNT = 200. 
6447 025170 003534 REINTO =BUS ADDRESS 
6448 :STARTING ADDRESS OF DATA 
6449 BUFFER = REINTO 
6450 025172 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
6451 025174 014000 ECI!FMT22 :16 BITS PER WORD FORMAT 
6452 : INHIBIT ECC CORRECTION 
6453 ‘DO NOT INHIBIT HEADER COMPARE 
6454 025176 002446 READAT GET READY TO DO A READA 
6455 :READ DATA WITH 70 IN RHCS1 
6456 
6457 
ot3 | :*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
6460 025200 004037 041672 JSR RO, a#SAVER SAVE REGISTERS 
6461 025204 002272 RHWC sRHWC IS THE FIRST REGISTER SAVED 
6462 025206 004612 SAVERE STARTING ADDRESS OF WHERE 
6463 THE REGISTERS ARE SAVED 
6464 025210 000022 18. :NUMBER OF REGISTERS 
6065 SAVED = 18. 
64 
6467 025212 004737 041604 JSR PC, a#CHECKT :CHECK DVA,RDY,MOL,DPR,DRY.VV = 1 
6468 AND THAT NO STATUS BITS ARE STUCK = 1 
6469 025216 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
6470 THE FIRST SET OF BITS DON'T = 1 
or) 025222 000000 HALT : STOP 
6473 025224 013777 004606 155034 MOV AMRP4VEC ,ARPVEC ;SET RPO4 VECTOR ADDRESS 
6474 TO 'TIME1' IF P=CLOCK 1S PRESENT 
6475 “OR TO 'TIME2' IF P=CLOCK IS NOT PRESENT 
6476 :"TIME' WILL ONLY SAVE 
6477 ;CURRENT CYLINDER ADDRESS 
6478 AND LOOK AHEAD REGISTERS 
6479 
6480 
6481 025232 013746 002446 MOV Q@#READAT,-(SP) ;:GET READY TO MOVE COMMAND 
6482 025236 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET 'GO* AND 
6483 sENABLE INTERRUPT 
6484 025242 012677 155032 MOV (SP)+,@RHCS1 :G0 WITH 
6485 :70 IN RHCS1 FOR READ DATA 
6486 :WITH INTERRUPT ENABLED 


6487 025246 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 





CZRJ1D0, RPOS/5/6 FCTNL CTLRI 
CZRJ1D.P11 


025250 


025252 
025254 
025256 
025260 
025262 


025264 
025270 
925274 
025300 


025302 
025314 
025316 
025322 
025326 
025330 
025342 
025344 


025344 


025372 


025374 
025400 


025406 
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011305 


104413 
002300 
000200 
001614 
001507 


013746 
052716 
011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


004037 


000001 


0040357 


094612 
002354 
000022 
025412 


703 


002446 
004101 
001124 


901126 
004600 


010500 
001124 


001126 


004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
135 


67$: 


69$: 


H 11 
25-MAY-79 bt PAGE 158 


WRITE/READ DATA (1°S & 125252) SEQ 0137 
MOV @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 

WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 

908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 


7690 AND 17470 MICRO SECONDS 


> *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND R5 IMMEDIATELY AFTER GO 


MOV Q@#READAT,-(SP) ;SAVE COMMAND 
BIS WIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 


MOV (SP) ,a#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 67% ;BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,a#REGADR ;FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV #MOL!DPRiIVV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 :DURING ABOVE OPERATION ONLY MOL!DPR' vv 
; SHOULD BE SET 

BEQ 69% ;BRANCH IF GOOD 

MOV R5,a#$BDDAT ;BAD DATA 

MOV R3,a#REGADR ;FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


> *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a@#F ILLRE ;MOV O INTO SAVED RHWC 

he Shy REGISTER TO CHANGE 

JSR RO,@#F ILLRE ;MOV REINTO*<200.*2> INTO SAVED RHBA 
RHBA > SAVED REGISTER TO CHANGE 
REINTO#<200.*2> ;DATA 

JSR RO,a#F ILLRE ;MOV 1 INTO SAVED RHDST 

“tact tty REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE* 

wC TEST DATA STARTING FROM ‘RHWC' 

18. 718. REGISTERS TO BE COMPARED 

5$ ;RETURN TO 5$ ON ERROR 


CZRJ1DO, RPOG/S/6 FCTNL CTLRI 
CZRJIDO.P11 9 


025410 


025412 
025414 


025416 
025416 


025432 


025434 
025436 


025440 


28-MAR-7 
025416 


104033 
000207 


004037 
0 


025440 


104034 
000207 


09:03 


043542 


MACY11 30A(1052) 
135 


5$: 


6$: 


7$: 


108: 


25-MAY-79 = 1 
WRITE/READ DAT 


6% 


ERROR 
RTS 


33 
PC 


— 159 
125252) 
;RETURN TO 6$ ON NO ERROR 


;READ DATA CAUSED IMPROPER 

REGISTER CHANGE 

;GOOD DATA GIVES WHAT SHOULD BE THERE 
;RECEIVED DATA GIVES WHAT WAS THERE 

; AFTER COMMAND 


;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


ERROR 
RTS 


RO,a# COMPAR 


34 
PC 


; COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
; TEST DATA STARTS FROM REINTO 
3256. WORDS TO BE COMPARED 
;RETURN TO 7$ ON ERROR 
;RETURN TO 10$ ON NO ERROR 


; INCORRECT DATA AFTER 
;WRITE DATA FOLLOWED BY A 
READ DATA 


SEQ 0138 


‘ 
_ 


CZRJ1D0, RPO4/5/6 st CTL 
CZRJID.P11 


025440 
025442 
025446 


025454 


025460 
025464 
025466 
025470 


025472 


025502 


28-MAR-79 


000004 
012706 
012737 


004737 


004037 


125252 


004037 
003534 
000400 
125252 


Ri 
09:03 


001000 
000036 


041524 


041374 


041374 


MACY11 30A(1052) 
136 


004604 


J1 
25-MAY-79 10:30 PAGE 140 
WRITE/READ DATA (125252) 


p,eereerererererrerererereererereeereteereeteeeeeeeeeAeeTeeeTeeese 


;*TEST 36 


Be Be Be Be Be Be He Oe Be Be Be Be Be Be Be Be He Be Be we He 
eaeneeersesnetenrernreneneeeeeeeteseternteeeees 


WRITE/READ DATA (125252) 


THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0 

TRACK 0, SECTOR 0, KEYS 0, 256 WORDS OF 125252 

THIS SECTOR IS FORMATED BY PREVIOUS TEST 

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN 

SAME CYLINDER, TRACK, SECTOR, KEYS 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
256 OF 125252 

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATI 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 256 OF ZEROS 

WRITE FROM BUFFER IS FILLED WITH 

256 OF 125252 

THE COMMAND EXCEPT GO 1S LOADED, ALL REGISTERS ARE SAVED 
GO 1S GIVEN 


ALL REGISTERS ARE CHECKED 
READ DATA IS CHECKED 


**@Reeeeeeeeekereeeeeeeeeeeeeeereeeeeeteeeekeeteeteeneeeaeeetenene 


ee 


TS1T36: 


SCOPE 

MOV WSTACK,SP RESET STACK 

MOV #36,a#1STNM ;SAVE TEST NUMBER 

JSR PC,a#CLDISK SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER| 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


:*NOW FILL WRITE FROM BUFFER = 256 OF 125252 


JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM 
WRFROM ; STARTING FROM WRFROM 

256. 3256. WORDS 

125252 sFILL WITH 125252 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
7*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO,@#CLAREA ;CLEAR 256. WORDS, by REINTO 
REINTO gg hes FROM REINTO 

256. 256. WORDS 

125252 SPILL mit 125252 


;*NOW WRITE DATA COMMAND WILL BE LOADED 


SEQ 0139 


= 


K 11 
CZRJ1D0, RPO4/5/6 rere pou MACY11 30A(1052) 25-MAY-79 10:30 PAGE 141 
CZRJID.P11 28-MAR-79 09:05 136 WRITE/READ DATA (125252) SEQ 0140 
6627 
6628 
6629 025504 004037 043476 JSR RO,Q#RUN ;SETUP TO RUN FOR DATA COMMAND 
6630 025510 000000 0 :CYLINDER 0 
6631 025512 0090 -BYTE 0 ; SECTOR 0 
6632 025515 000 -BYTE 0 ; TRACK 0 
6633 025514 177400 -256. :WORD COUNT = 256. 
6634 025516 002470 WRFROM ;BUS ADDRESS 
6635 STARTING ADDRESS OF DATA 
6636 :BUFFER = WRF ROM 
6637 025520 000000 0 ;D0 NOT INHIBIT BUS a INCREMENT 
6638 025522 010000 FMT22 316 BITS PER WORD FORMA 
6639 :D0 NOT INHIBIT ECC CORRECTION 
6640 :D0 NOT INHIBIT HEADER COMPARE 
6641 025524 002442 WRIDAT GET READY TO DO A WRIDAT 
6642 s WRITE DATA WITH 60 IN RHCS1 
6643 
6644 
reed ;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
6647 025526 004037 041672 JSR RO, @#SAVER - ; SAVE REGISTERS 
6648 025532 002272 RHWC ;RHWC 1S THE FIRST REGISTER SAVED 
6649 025534 004612 SAVERE STARTING ADDRESS OF WHERE 
6650 ; THE REGISTERS ARE SAVED 
6651 025536 000022 18. ;NUMBER OF REGISTERS 
rots ;SAVED = 18. 
6654 025540 004737 041604 JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
6655 ;AND THAT NO STATUS BITS ARE STUCK = 1 
6656 025544 104401 067033 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
6657 THE FIRST SET OF BITS DON'T = i 
oo 025550 000000 HALT ; STOP 
6660 025552 013777 004606 154506 MOV OARP4VEC,ARPVEC $14 RPO4 VECTOR ADDRESS 
6661 TO 'TIMET' IF P-CLOCK IS PRESENT 
6662 SOR TO 'TIME2' IF P=CLOCK IS NOT PRESENT 
6663 :*TIME' WILL ONLY SAVE 
6664 ;CURRENT CYLINDER ADDRFSS 
6665 ;AND LOOK AHEAD REGISTERS 
666? bn 
6668 025560 013746 002442 MOV Q@#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
6669 025564 052716 000101 BIS #GO'I1E, (SP) ;GET READY TO SET ‘GO’ AND 
6670 ENABLE INTERRUPT 
6671 025570 012677 154504 MOV (SP)+,@RHCS1 ;GO WITH 
6672 ;60 IN RHCS1 FOR WRITE DATA 
6675 sWITH INTERRUPT ENABLED 
6674 025574 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
oth 025576 011305 MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
6676 
6677 7*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 
6678 
6679 
6680 025600 104413 WAT WALT FOR RDY BIT TO SET 
6681 025602 002500 RHCS1 ;WALT FOR RHCS1 REGISTER 
6682 025604 000200 RDY ;WAILT FOR RDY BIT IN RHCS1 REGISTER 
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025606 
025610 


025612 


025626 
025630 
025632 
025636 
025642 
025644 
025650 
025654 
025656 
025660 
025664 
025670 


025672 


025672 


025720 


025722 
025726 


025736 


025740 
025742 
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001614 
001507 


013746 


022600 
001405 
010037 
010137 
104021 
012746 
011637 
022605 
001405 
010537 


010337 
104063 


004037 


000001 


004037 
004612 


025744 


104035 
000207 


CTLRI 


9 09:03 


002442 
004101 
001124 


001126 
004600 


etre 


01 
001124 


001126 
004600 


041426 
041426 


041426 


042512 
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64$: 


663: 


18: 
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WRITE/READ DATA (125252) SEQ 0141 
908. ;ALLOW 9080 MICRO SECONDS 
839. ;RDY MUST SET BETWEE 


WEEN 
3690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV Q#WRIDAT,-(SP) ;SAVE COMMAND 
BIS WIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
MOV (SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 


CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO ,a#SBDDAT BAD DATA 

MOV R1,@#REGADR sFAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV WMOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP), a#$GDDAT SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! VV 
;SHOULD BE SET 

BEQ 66% :BRANCH IF GOOD 

MOV R5,a#$BDDAT BAD DATA 

MOV R3,a#REGADR ;FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#F ILLRE ;MOvV 0 INTO SAVED RHWC 

oe Seth REGISTER TO CHANGE 

JSR RO, a#F ILLRE :MOV WRFROM+<256.*2> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 

WRF ROM+<256.*#2> DATA 

JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHDST 

“whes seoves REGISTER TO CHANGE 


>*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;tAFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE" 

wC TEST DATA STARTING FROM ‘RHWC' 

18. ;18. REGISTERS TO BE COMPARED 

1$ ;RETURN TO 1$ ON ERROR 

2% ;RETURN TO 2$ ON NO ERROR 

ERROR 35 WRITE DATA COMMAND CAUSED 

RTS PC ; IMPROPER REGISTER CHANGE 


;GOOD DATA GIVES WHAT SHOULD 


CZRJIDO, RPO4/5/6 su CTL 
CZRIID.P11 


025744 
025744 


025760 


025762 
025764 


025766 
025766 


025772 
025776 
026000 
026002 


026004 
026010 
026012 
026014 


026016 


026030 


026032 
026034 
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004037 
003534 


025766 


104036 
000207 


004737 


004037 
003534 
000400 
000000 


004037 
002470 
000400 
125252 


004037 


0 
177400 
003534 


090000 
014000 


Ri 
09:03 


043542 


041524 


041374 


041374 


043476 
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23: 


3$: 


4$: 


-BYTE 


M11 
25-MAY-79 10:30 PAGE 143 
WRITE/READ DATA (125252) 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
REINTO ;GOOD DATA STARTS FROM REINTO 
WRF ROM ; TEST DATA STARTS FROM WRFROM 
256. 3256. WORDS TO BE COMPARED 

3$ ;RETURN TO 3$ ON ERROR 

4$ ;RETURN TO 4$ ON NO ERROR 
ERROR 36 ;WRITE DATA COMMAND CHANGED 
RTS PC ;WRITE FROM BUFFER 


;*NOW A READ DATA COMMAND WILL BE GIVEN 
;*FILL READ INTO BUFFER WITH 256 ZEROS 


JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


JSR RO, @#CLAREA ;CLEAR 256. WORDS, FROM REINTO 
REINTO STARTING FROM REINTO 

256. 3256. WORDS 

0 sFILL WITH O 


*FILL WRITE FROM BUFFER WITH 256 OF 125252 


JSR RO,@#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRF ROM 

256. :256. WORDS 

125252 sFILL WITH 125252 


>*NOW FILL COMMAND 


;SETUP TO RUN FOR DATA COMMAND 


JSR RO,@#RUN 
0 sCYLINDER 0 


0 ;SECTOR 0 

0 ; TRACK 0 

-256. ;WORD COUNT = 256. 
REINTO :BUS A 


DDRESS 
STARTING ADDRESS OF DATA 
;BUFFER = REINTO 


;D0 NOT INHIBIT BUS ADDRESS INCREMENT 


0 

ECL!FMT22 316 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 


SEQ 0142 


CZRJIDO, RPOG/S/6 FCTNL 
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6795 
96 


026036 


026040 
026044 
026046 


026050 


026052 
026056 
026062 
026064 


026072 
026076 


026102 


026106 
026110 


026112 


026122 


026124 


026140 


026142 
026144 
026150 
026154 
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002446 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


001507 


013746 


022600 


001405 
010037 
010137 
104021 


CTLRI 
09:03 


041672 


041604 
067033 


904606 


002446 
000101 


154172 


002446 
004101 
001124 


001126 
004600 
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WRITE/READ DATA (125252) 


READAT GET READY TO DO A READAT 
7 READ DATA WITH 70 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, Q#SAVER ;SAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 
JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE -CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


MOV @#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
;T0 "TIME1' IF P=CLOCK IS PRESEN 
;OR TO ‘TIME2' IF P-CLOCK IS NOT "PRESENT 
:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @A#READAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS AGO! IE, (SP) ;GET READY TO SET ‘GO" AND 
ore rene 
MOV (SP)+,@RHCS1 60 WIT 


370 IN "RHCS! FOR READ DATA 
;WITH INTERRUPT ENABLED 


MOV aR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BET 


WEEN 
:690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:*RO AND R5 IMMEDIATELY AFTER GO 


MOV Q@#READAT,-(SP) ;SAVE COMMAND 
BIS MIE!GO!DVA,(SP) ; INCLUDE I1E!GO:DVA 


MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY iE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 67% ;BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,Q#REGADR ;FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 


SEQ 0145 


CZRJ109, RPOG/5/6 AS 


CZRJID.P11 


026156 
026162 
026166 


026170 


026202 
026204 


026204 


026232 


026234 
026240 


026250 


026252 
026254 
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012746 
011637 
022605 


001405 


104063 


004037 
002272 


000001 


004037 
004612 
002354 
026256 


104033 
000207 


026256. 


026256 


026272 


026274 
026276 


004037 
0 


026300 


104034 
000207 


CTLRI 
09:03 
010500 
001124 
001126 
004600 


041426 
041426 


041426 


042512 


043542 
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67$: 


69$: 


5$: 


6$: 


7$: 
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WRITE/READ DATA (125252) SEQ 0144 


;COMMAND AND IE!GO!DVA SHOULD BE SET 


MOV #MOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDST 


MOV (SP) ,a#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 [DURING ABOVE OPERATION ONLY MOL!DPR! vv 
;SHOULD BE SET 

BEQ 69% :BRANCH IF GOOD 


MOV R5 ,a@#$BDDAT :BAD DATA 

MOV R3,a#REGADR sFAILING REGISTER RHDS1 

ERROR 65 ;DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,a#F ILLRE ;MOV 0 INTO SAVED RHWC 

. C : SAVED REGISTER TO CHANGE 

JSR RO,@#FILLRE ;MOV REINTO+<256.*2> INTO SAVED RHBA 
RHBA TSAVED REGISTER TO CHANGE 

RE INTO#+<256.*2> ;DATA 

JSR RO, @#F ILLRE ;MOV 1 INTO SAVED RHDST 

tas ; SAVED REGISTER TO CHANGE 


> *COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, @#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

we TEST DATA STARTING FROM *RHWC’ 
18. 318. REGISTERS TO BE COMPARED 
5$ ;RETURN TO 5$ ON ERROR 

6$ ;RETURN TO 6$ ON NO ERROR 
ERROR 33 ;READ DATA CAUSED IMPROPER 

RTS PC ;REGISTER CHANGE 


;GOOD DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER COMMAND 


;>*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRFROM ;GOOD DATA STARTS FROM WRFROM 
REINTO TEST DATA STARTS FROM REINTO 
256. 3256. WORDS TO BE COMPARED 

7$ ;RETURN TO 7$ ON ERROR 

10$ ;RETURN TO 10% ON NO ERROR 
ERROR 34 ; INCORRECT DATA AFTER 

RTS PC WRITE DATA FOLLOWED BY A 


On 


CZRJ1D0, RPOS/5/6 FCTNL CTLR 


CTLR1 = =6MACYI1 30A(1052) 25-MAY-79 
CZRJID.P11 28-MAR-79 09:03 136 


1 
WRITE/READ DAT SEQ 0145 
6907 ;READ DATA 
6908 026300 10$: 
6909 
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CZRJ10.P 28-MAR-79 09:03 137 WRITE/READ DATA (052525) SEQ 0146 
6910 ppeeeererereererererererererereeeerereeeAeeterteeeteeerreeReAT eee 
4h! s*TEST 37 WRITE/READ DATA (052525) 

6913 ;* THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0 
6914 ;* TRACK 0, SECTOR 0, KEYS 0, 200 WORDS | 4 1032525 
6915 ;* THIS SECTOR IS FORMATED BY PREVIOUS 1 
6916 3* THEN READ DATA COMMAND IS GIVEN FOR 256. WORDS IN 
6917 ;* SAME CYLINDER, TRACK, SECTOR, KEYS 
6918 ;* WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
6919 ;* 200 OF 052525 AND 56 OF 377 
6920 ;* THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
es) :* ALL REGISTERS ARE SAVED AND THEN GO IS TO WRITE DATI 
** 
6923 if 
6924 it THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
2444 ;* CHANGE, THEN WRITE FROM BUFFER 1S CHECKED FOR NO CHANGE 
** 
6927 if THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
6928 ;* AND 56 ALL ONES, WRITE FROM BUFFER IS FILLED WITH 200 
6929 ;* WORDS OF 52525 AND 56 WORDS OF 0 
6930 ;* THE COMMAND EXCEPT GO 1S LOADED, ALL REGISTERS ARE SAVED 
6931 ;* GO 1S GIVEN 
6932 7@ 
6933 3* 
6934 ;* ALL REGISTER ARE CHECKED 
6935 ie READ DATA 1S CHECKED 
6936 
6937 ppeeeeeeeeeeeeeeeereteeeeeeeeeeeertrAre AAA Kee KARA RATATAT 
6938 026300 000004 TST37: SCOPE 
6939 026302 012706 001000 MOV #STACK,SP ;RESET STACK 
6960 026306 012737 000037 004604 MOV #37, a#TSTNM ;SAVE TEST NUMBER 
694 
6942 026314 004737 041524 JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 
6943 ;R3-RHDS1, R4-RHER1 
6944 :GIVE RH-11 INITIALIZE 
+o ;SETUP UNIT NUMBER 
6 : 
44 :*NOW FILL WRITE FROM BUFFER-200 OF 52525 AND 56 OF 377 
694 
6949 026320 004037 041374 JSR RO, a@#CLAREA ;CLEAR 200. WORDS, FROM WRFROM 
6950 026324 002470 WRF ROM ;STARTING FROM WRFEROM 
6951 026326 000310 200. ;200. WORDS 
a7 026330 052525 52525 FILL WITH 52525 
6 
6954 026332 004037 041374 JSR RO, O#CLAREA ;CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
6955 026336 003310 WRF ROM+<200. *2> sSTARTING FROM WRFROM+<200.*2> 
6956 026340 000070 56. 756. WORDS 
6957 026342 000377 377 FILL WITH 377 
6958 
6959 
6960 ;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
6961 s*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
6962 :*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 
696 
6964 026344 004037 041374 JSR RO, a#CLAREA ;CLEAR 200. WORDS, FROM REINTO 


6965 026350 003534 REINTO STARTING FROM REINTO 


E 12 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 148 


CZRJID0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 28-MAR-79 09:03 137 WRITE/READ DATA (052525) SEQ 0147 
6966 026352 000310 200. ;200. WORDS 
ood! 026354 052525 52525 sFILL WITH 52525 
6969 026356 004037 041374 JSR RO,@#CLAREA ;CLEAR 56. WORDS, FROM REINTO+<200.*2> 
6970 026362 004354 REINTO+<200- *2> STARTING FROM REINTO+<200.*2> 
6971 026364 000070 56. 356. WORDS 
6972 026366 000377 377 sFILL WITH 377 
6973 
6974 
6975 ;*NOW WRITE DATA COMMAND WILL BE LOADED 
at 
6978 026370 004037 043476 JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
6979 026374 000000 0 sCYLINDER 0 
6980 026376 000 BYTE 0 ; SECTOR 0 
6981 026577 000 -BYTE 0 ; TRACK 0 
6982 026400 177470 -200. ;WORD COUNT = 200. 
6983 026402 002470 WRFROM ;BUS ADDRESS 
6984 STARTING ADDRESS OF DATA 
6985 ;BUFFER = WRFROM 
6986 026404 000000 0 ;00 NOT INHIBIT BUS o_o INCREMENT 
6987 026406 010000 FMT22 316 BITS PER WORD FORM 
6988 :D0 NOT INHIBIT ECC CORRECTION 
6989 ;00 NOT INHIBIT HEADER COMPARE 
6990 026410 002442 WRIDAT ;GET READY TO DO A WRIDAT 
6991 ;WRITE DATA WITH 60 IN RHCS1 
6992 
6993 
the | >*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 
6 
6996 026412 004037 041672 JSR RO,Q#SAVER ;SAVE REGISTERS 
6997 026416 002272 RHWC ;RHWC 1S THE FIRST REGISTER SAVED 
6998 026420 004612 SAVERE STARTING ADDRESS OF WHERE 
6999 THE REGISTERS ARE SAVED 
7000 026422 000022 18. :NUMBER OF REGISTERS 
Aad ;SAVED = 18. 
7003 026424 004737 041604 JSR PC ,a#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
7004 ;AND THAT NO STATUS BITS ARE STUCK = 1 
7005 026430 104401 067033 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
7006 ;THE FIRST SET OF BITS DON'T = 1 
a4 026434 000000 HALT ; STOP 
7009 026436 013777 004606 153622 MOV QARPGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
7010 :10 ‘TIME1" IF P-CLOCK IS PRESENT 
7011 ;OR TO ‘TIME2' IF P-CLOCK IS NOT PRESENT 
7012 ;'TIME* WILL ONLY SAVE 
7013 ;CURRENT CYLINDER ADDRESS 
7014 ;AND LOOK AHEAD REGISTERS 
tf 
7017 026444 013746 002442 MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
7018 026450 052716 000101 BIS #GO!IE, (SP) ;GET READY TO SET ‘GO* AND 
7019 :ENABLE INTERRUPT 
7020 026454 012677 153620 MOV (SP)+,@RHCS1 3G 


WITH 
7021 60 IN RHCS1 FOR WRITE DATA 
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026460 
026462 


026464 
026466 
026470 
026472 
026474 


026476 


026512 
026514 


026526 
026530 
026534 
026540 
026542 
026544 
026550 
026554 


026556 


026556 


026604 


026606 
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104413 
002300 
000200 
001614 
001507 


013746 
052716 
011637 
022600 


001405 
104021 
012746 
011637 
022605 
001405 


104063 


004037 


000001 


004037 


09:03 


002442 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


042512 
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64$: 


66$: 
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WRITE/READ DATA (052525) SEQ 0148 
WITH INTERRUPT ENABLED 

MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 

MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN ae REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 


:690 AND 17470 MICRO SECONDS 


>*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV Q@#WRIDAT,-(SP) ;SAVE COMMAND 
BIS MIE'GO!DVA,(SP) ; INCLUDE IE!GO!DVA 


MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,a#REGADR FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV #MOL !DPR!VV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! VV 
;SHOULD BE SET 

BEQ 66$ ;BRANCH IF GOOD 

MOV R5,a#$BDDAT ;BAD DATA 

MOV R3,@#REGADR ;FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHWC 

— tev tig REGISTER TO CHANGE 

JSR RO, a#FILLRE sMOV WRFROM+<200.*2> INTO SAVED R4BA 
RHBA sSAVED REGISTER TO CHANGE 

WRF ROM+<200.*2> DATA 

JSR RO, a#F ILLRE sMOV 1 INTO SAVED RHDST 

peer ig REGISTER TO CHANGE 


:*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;*AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
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CZRJIDO.P11 28-MAR-79 09:03 WRITE/READ DATA (052525) SEQ 0149 
7078 026612 004612 SAVERE ;GOO0D DATA SAVED IN ‘SAVERE’ 
7079 026614 002354 wc ; TEST DATA STARTING FROM ‘RHWC’ 
7080 026616 000022 18. 318. REGISTERS TO BE COMPARED 
7081 026620 026624 1$ :RETURN TO 1$ ON ERROR 
raat 026622 026630 2$ sRETURN TO 2$ ON NO ERROR 
7084 026624 104035 1$: ERROR 25 sWRITE DATA COMMAND CAUSED 
7085 026626 000207 RTS PC ; IMPROPER REGISTER CHANGE 
7086 :GOOD DATA GIVES WHAT SHOULD 
7087 7 BE 
7088 sRECEIVED DATA GIVES WHAT WAS 
Hoa THERE AFTER COMMAND 
344 >*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 
Nab, 026630 2$: 

7095 026630 004037 043542 JSR RO, a#COMPAR ; COMPARE TWO BLOCKS OF MEMORY 
7096 026634 003534 REINTO :GOOD DATA STARTS FROM REINTO 
7097 026636 002470 WRFROM TEST DATA STARTS FROM WRFROM 
7098 026640 000400 256. :256. WORDS TO BE COMPARED 
7099 026642 026646 3$ :RETURN TO 3$ ON ERROR 

7100 026644 026652 4% ;RETURN TO 4$ ON NO ERROR 

4102 

7103 026646 104036 3$: ERROR 36 sWRITE DATA COMMAND CHANGED 
He 026650 000207 RTS PC sWRITE FROM BUFFER 

4 :*NOW A READ DATA COMMAND WILL BE GIVEN 

Ah :*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES 
AM 026652 4%: 

7112 026652 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 

7113 :R3-RHDS1, R4-RHERI 

7114 GIVE RH-11 INITIALIZE 

7115 :SETUP UNIT NUMBER 

7116 026656 004037 041374 JSR RO, @#CLAREA :CLEAR 200. WORDS, FROM REINTO 
7117 026662 003534 REINTO STARTING FROM REINTO 

7118 026664 000310 200. :200. WORDS 

ahh 026666 000000 0 sFILL WITH O 

7121 026670 004037 041374 JSR RO, a#CLAREA sCLEAR 56. WORDS, FROM REINTO*<209.*2> 
7122 026674 004354 REINTO*#<200.*2> sSTARTING FROM REINTO+<200.*2> 
7123 026676 000070 56. 356. WORDS 

7124 026700 000377 377 sFILL WITH 377 

7125 

7126 

abla s*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0 
7129 026702 004037 041374 JSR RO, @#CLAREA :CLEAR 200. WORDS, FROM WRFROM 
7130 026706 002470 WRF ROM STARTING FROM WRF ROM 

7131 026710 000310 200. 3200. WORDS 

4 026712 052525 52525 sFILL WITH 52525 
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CZR 
CZRJIIO.P 28-MAR-79 09:03 137 WRITE/READ DATA (052525) SEQ 0150 
7134 026714 004037 041374 JSR RO,@#CLAREA ; CLEAR - seat tad FROM WRFROM+<200.*2> 
7135 026720 003310 URFROM*<200- *2> ARTING FROM WRFROM+<200. *2> 
7136 026722 000070 56. 756. vorés 
7137 026724 000377 377 FILL WITH 377 
7138 
7139 
7140 ;*NOW FILL COMMAND 
7141 
7142 
7143 026726 004037 043476 JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
7144 026732 000000 0 sCYLINDER 0 
7145 026734 000 -BYTE 0 SECTOR 0 
7146 026735 000 -BYTE 0O s TRACK 0 
7147 026736 177470 -200. s;WORD COUNT = 200. 
7148 026740 003534 REINTO ;BUS ADDRESS 
7149 ;STARTING ADDRESS OF DATA 
7150 [BUFFER = REINTO 
7151 026742 000090 0 300 NOT INHIBIT BUS ADDRESS INCREMENT 
7152 026744 014000 ECL! FMT22 3:16 BITS PER WORD FORMAT 
7153 : INHIBIT” ECC CORRECTION 
7154 :DO NOT INHIBIT HEADER COMPARE 
7155 026746 002446 READAT :GET READY TO DO A READAT 
7156 ;READ DATA WITH 70 IN RHCS1 
7157 
7158 
Abe s*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
6 
7161 026750 004037 041672 JSR RO, a#SAVER ;SAVE REGISTERS 
7162 026754 002272 RHWC sRHWC IS THE FIRST REGISTER SAVED 
7163 026756 004612 SAVERE s;STARTING ADDRESS OF WHERE 
7164 sTHE REGISTERS ARE SAVED 
7165 026760 000022 18. sNUMBER OF REGISTERS 
pies sSAVED = 18. 
7168 026762 004737 041604 JSR PC ,a#CHECKT 7CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
7169 ;AND THAT NO STATUS BITS ARE STUCK = 1 
7170 026766 104401 067033 TYPE »CPHALT © sCANNOT CONTINUE TESTING IF ANY OF 
7171 :THE FIRST SET OF BITS DON'T = 1 
oe 026772 000000 HALT > STOP 
7174 026774 013777 004606 153264 MOV OARP4VEC,ARPVEC ; 414 RPO4 VECTOR ADDRESS 
7175 O 'TIME1' IF P-CLOCK IS PRESENT 
7176 son TO 'TIME2" if P-CLOCK IS NOT PRESENT 
7177 "TIME" WILL ONLY SAVE 
7178 sCURRENT CYLINDER ADDRESS 
7179 ;AND LOOK AHEAD REGISTERS 
181 
7182 027002 013746 002446 MOV QMREADAT,-(SP) ;GET READY TO MOVE COMMAND 
7183 027006 052716 000101 BIS #GO'IE, (SP) ;GET READY TO SET ‘'GO' AND 
7184 sENABLE INTERRUPT 
7185 027012 012677 153262 MOV (SP)+,@RHCS1 360 WITH 
7186 :70 IN RHCS1 FOR READ DATA 
7187 sWITH INTERRUPT ENABLED 
7188 027016 011100 MOV ark1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
7189 027020 011305 MOV aR3,R5 sSAVE RHDS1 DURING ABOVE OPERATION 


0, 


Pil 


027022 


027032 


027034 


027050 
027052 
027064 
027066 
027072 
027076 
027100 
027112 
027114 


027114 


027142 


027144 


027150 


027160 


-MAR-7 


104413 


001507 


013746 


022600 
001405 
104021 
012746 
011637 
022605 
001405 


104063 


004037 
002272 


000001 


004037 
004612 


027166 


wend AS Ad: CTLRI 


9 09:03 


002446 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
137 


67%: 


69%: 


25-MAY-79 10: 
WRITE/READ DAT 


oO 
m~w 
oo 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 

;RDY MUST SET BETWEEN 

3690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV @#READAT,-(SP) 
BIS #IE!GO!DVA, (SP) 


> SAVE COMMAND 

; INCLUDE IE!GO!DVA 

SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY IE!GO!DVA 


;AND COMMAND SHOULD BE SET 


;BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHCS1 
;DURING ABOVE OPERATION ONLY 


;COMMAND AND IE!GO!DVA SHOULD BE SET 


;SAVE BITS SET DURING OPERATION IN RHDS1 


SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL!DPR! VV 


;SHOULD BE SET 


MOV (SP) ,a#$GDDAT 
CMP (SP)+,RO 

BEQ 67% 

MOV RO, a#$BDDAT 
MOV R1,a#REGADR 
ERROR 21 

MOV #MOL ! DPR! VV,-(SP) 
MOV (SP) ,a#$GDDAT 
CMP (SP)+,R5 

BEQ 69% 

MOV R5,a#$BDDAT 
MOV R3,Q#REGADR 
ERROR 63 


;BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


> *CHANGE SAVED REGISTERS 


JSR RO, a#F ILLRE 
_— 

JSR RO,@#F ILLRE 
RHBA 
REINTO+*<200.#2> 

JSR RO, a#F ILLRE 
es 


TO EXPECTED VALUES 


;MOV 0 INTO SAVED RHWC 
;SAVED REGISTER TO CHANGE 


:DATA 
;MOV REINTO*<200.*2> INTO SAVED RHBA 
; SAVED REGISTER TO CHANGE 


:DATA 
;MOV 1 INTO SAVED RHDST 


: SAVED REGISTER TO CHANGE 


> *COMPARE REGISTERS BEFORE READ DATA COMMAND 
s*W1ITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG 


;COMPARE SAVED REGISTERS WITH 


PRESENT VALUE 


SAVERE 


;GOOD DATA SAVED IN "SAVERE" 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


SEQ 0151 
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Pil 28-MAR-79 09:05 137 WRITE/READ DATA (052525) SEQ 0152 
027162 104035 5$: ERROR 33 ;READ DATA CAUSED IMPROPER 
027164 000207 RTS PC ;REGISTER CHANGE 


;GQ0D DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
; AFTER COMMAND 


;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


027166 6$: 

027166 004037 043542 JSR RO,a#COMPAR s; COMPARE TWO BLOCKS OF MEMORY 
027172 002470 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
027174 003534 REINTO ; TEST DATA STARTS FROM REINTO 
027176 000400 256. 7256. WORDS TO BE COMPARED 
027200 027204 7$ ;RETURN TO 7$ ON ERROR 

027202 027210 10% ;RETURN TO 10$ ON NO ERROR 
027204 104034 7$: ERROR 34 : INCORRECT DATA AFTER 

027206 000207 RTS PC sWRITE DATA FOLLOWED BY A 


READ DATA 
027210 10$: 


CZRJ1D0, RPO4/5/6 443 CTLRI 
CZRJID.P11 


027210 
027212 
027220 
027224 


027232 


027236 
027242 
027244 
027250 


027250 


027254 
027260 
027262 
027264 


28-MAR-79 


000004 
012737 
012706 
012737 


004737 


005737 
001402 
000137 


005037 


004037 


052525 


09:03 


000001 
001000 
000040 
041524 


004750 
030360 


004732 


041374 


MACY11 30A(1052) 
140 


001212 
004604 


K 12 
25-MAY-79 10:30 PAGE 154 
WRITE/READ DATA USING UNIBUS B 


pp eeteereeererrererererererereerereeeerereteReeneAeeeAeeeeTeee eee 


s*TEST 40 WRITE/READ DATA USING UNIBUS 8B 


Be Be Bs Be Se Be Be Se Be Be Se Se Se Be He Se Se Se Ge Se Se Se Se Be Se Se 


eaerneeerPenrenrenenereneneneneneneneeeeneeeeee 


—ts. 


30$: 


THIS TEST USES UNIBUS B IF CONNECTED 10 THE RH 

1f UNIBUS B 1S NOT CONNECTED THEN THIS TEST IS NOT PERFORMED 
THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0 

TRACK 0, SECTOR 0, KEYS 0, 200 WORDS OF 052525 

THIS SECTOR 1S FORMATED BY PREVIOUS TEST 

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN 

SAME CYLINDER, TRACK, SECTOR, KEYS 

THESE COMMANDS USE UNIBUS B FOR DATA 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 

200 OF 052525 AND 56 OF 377 

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 

AND 56 ALL ONES, WRITE FROM BUFFER IS FILLED WITH 200 
WORDS OF 52525 AND 56 WORDS OF 0 

THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
GO IS GIVEN 


ALL REGISTER ARE CHECKED 
READ DATA IS CHECKED 


RRR ee eee eteeteteeeeeese 


$140 


SCOPE 
MOV #1,$TIMES ;;D0 1 ITERATION 
MOV #STACK,SP RESET STACK 
MOV #40, Q#TSTNM ; SAVE TEST NUMBER 
JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 
:*CHECK TO SEE IF THE PROGRAM 1S RUNNING WITH AN RH70 
TST a#RH70 ; TEST FOR RH70 CONTROLLER 
BEQ 30% ;1F FLAG = 1, THIS TEST 1S SKIPPED 
JMP to JUMP TO NEXT TEST ecececeooeesceecseee ) 
;1F FLAG = 1, DO THIS TEST 


CLR a#UBUSB ;CLEAR UNIBUS INDICATOR 
7*NOW FILL WRITE FROM BUFFER=200 OF 52525 AND 56 OF 377 


JSR RO,Q#CLAREA CLEAR 200. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRFROM 

200. : - WORDS 

52525 sFILL WITH 52525 


SEQ 0153 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJ1ID.P11 


027266 


027276 


027300 


027310 
027312 


027322 


027324 


027336 


027340 
027342 


027344 
027346 
027354 
027360 
027362 
027364 


027366 
027372 


28-MAR-7 
004037 


000377 


004037 


052525 
004037 


000377 


004037 
sag 


002470 


000000 
010000 


002442 
052777 
004037 
002272 
004612 
000022 


004737 
104401 


9 09:03 


041374 


041374 


041374 


043476 


002000 


041672 


041604 
067033 


MACY11 30A(1052) 
140 


152724 


-BYTE 
BYTE 


L_12 
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WRITE/READ DATA USING UNIBUS B SEQ 0154 
JSR RO, @#CLAREA sCLEAR 56. Serial FROM WRFROM+<200.*2> 

URFROM*< 200. *2> 3STA RTING FROM WRFROM*<200. #2> 

56. 56. WORDS 

377 sFILL WITH 377 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
;*WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
7*CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 


JSR RO,@#CLAREA CLEAR 200. WORDS, FROM REINTO 


REINTO STARTING FROM REINTO 

200. 3200. WORDS 

52525 sFILL WITH 52525 

JSR RO,@#CLAREA CLEAR 56. WORDS, FROM REINTO+<200.*2> 
REINTO+<200. *2> STARTING FROM REINTO+<200.*2> 
56. ;56. WORDS 

377 sFILL WITH 377 


;*NOW WRITE DATA COMMAND WILL BE LOADED 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 

0 SECTOR 0 

0 ; TRACK 0 

-200. :WORD COUNT = 200. 

WRF ROM ;BUS ADDRESS 


:STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 
0 ;00 NOT INHIBIT BUS a INCREMENT 
FMT22 316 BITS PER WORD FORM 

:D0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 
WRIDAT ;GET READY TO DO A WRIDAT 

;WRITE DATA WITH 60 IN RHCS1 


BIS #PSEL,@RHCS1 ;SET PORT B 
; THAT IS UNIBUS B 


;*NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 


JSR RO, a#SAVER ;SAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 

sTHE REGISTERS ARE SAVED 
18. s;NUMBER OF REGISTERS 

;SAVED = 18. 
JSR PC ,a#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

sAND THAT NO STATUS BITS ARE STUCK = 1 
TYPE »CPHALT sCANNOT CONTINUE TESTING IF ANY OF 


;THE FIRST SET OF BITS DON'T = 1 


—y 


CZRJIDO, RPO4/S/6 FCTNL 


CZRJID.P11 


7385 
386 
ten 


027376 
027400 


027406 
027412 


027416 


027422 
027424 


027426 


027434 
027436 


027440 
027444 
027450 
027454 


027456 


027470 
027472 
027476 
027502 


027504 


027516 
027520 


28-MAR-79 


000000 
013777 


013746 
052716 


012677 


001507 


013746 
052716 
011637 
022600 


001405 


104021 
012746 
011637 
022605 


001405 


104063 


CTLRI 
09:03 


004606 


002442 
002101 


152656 


002442 
006101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


MACY11 30A(1052) 
140 


152660 


Mm 12 
25-MAY-79 10:30 PAGE 
WRITE/READ DATA USING UNI 


HALT 
MOV @#RPGVEC ,ARPVEC 


156 
BUS B 


; STOP 


4 4 RPO4 VECTOR ADDRESS 
*TIME1' IF P-CLOCK IS PRESEN 


‘OR TO "TIME2’ IF P-CLOCK IS NOT "PRESENT 


:*TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIDAT,-(SP) 
BIS #GO!ITE!PSEL, (SP) 


MOV (SP)+,@RHCS1 


;GET READY TO MOVE COMMAND 
;GET READY TO SET "GO" AND 
;ENABLE INTERRUPT 


:60 WITH 


360 IN RHCS1 FOR WRITE DATA 


;WITH INTERRUPT ENABLED 


MOV aR1,R0 
MOV @R3,R5 


3*ONE REVOLUTION=16670 M1 


SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


CROSEC, ONE SECTOR=760 MICROSEC 


;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 


;ALLOW 9080 MICRO SECONDS 
;RDY MUST SET BETWEEN 
:690 AND 17470 MICRO SECONDS 


> *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS: IMMEDIATELY AFTER GO 


MOV O#WRIDAT,-(SP) 
BIS #IE!GO!DVA!PSEL, ( 


;SAVE COMMAND 


SP) INCLUDE IE!GO!DVA!PSEL 


SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY IE!GO!DVA!PSEL 


;AND COMMAND SHOULD BE SET 


MOV (SP) ,a#$GDDAT 
CMP (SP)+,RO 
BEQ 


64$ 
MOV RO, a#$BDDAT 
MOV R1,@#REGADR 
ERROR 21 


64$: MOV WMOL !DPR!VV,-(SP) 
MOV (SP), a#S$GDDAT 
CMP (SP)4,R5 


BRANCH IF GOOD 
;BAD DATA 
;FAILING REGISTER RHCS1 
;DURING ABOVE OPERATION ONLY 
: COMMAND © — JE!GO!DVA!PSEL SHOULD BE SET 

AVE ve SET DURING OPERATION IN RHDS1 


; SAVE FOR SPRINT OuT 


;DURING ABOVE OPERATION ONLY MOL! DPR! VV 


;SHOULD BE SET 


66$ 
MOV R5,a#$BDDAT 
MOV R3,Q#REGADR 
ERROR 635 


BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


66$: 


*CHECK IF NEM NON EXISTANT MEMORY IS SET 
:*1F SET 11 MEANS UNIBUS B IS NOT CONNECTED 


:*SO THIS TEST 1S NOT PERFORMED 


SEQ 0155 


CZRJ1IDO, RPO4/S/6 FCTNL CTLRI 
9 09:03 


CZRJID.P11 


027520 


027542 
027616 


027636 
027710 


027710 
027714 


027720 


027746 


027750 
027754 


027764 
027766 
027770 


027772 
027772 
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032777 


000425 


104401 
104401 
000137 
104401 
000424 


104401 
104401 


004037 


000001 


004037 
004612 
002354 
027772 
104074 
000207 


004037 


004000 152550 
177777 + 004732 
027544 


001223 
001223 
030360 


027640 


041426 
041426 


041426 


042512 


043542 


MACY11 30A(1052) 
140 


; 688: 


67$: 


118: 


33708: 


69$: 


2$: 


N12 
25-MAY-79 10:30 PAGE 157 
WRITE/READ DATA USING UNIBUS B 


Bit #WNEM,QRHCS2 TEST NEM 

BEQ 118 :BRANCH IF ae oe B THERE 
MOV #-1 ,a#UBUSB ;UNIBUS B NOT THERE 

TYPE ,68$ 3 TYPE ASCIZ STRING 


BR 67$ ;GET OVER THE ASCIZ 
.ASCIZ <15><12>/THE RH DOES NOT HAVE UNIBUS B CONNECTED/ 


TYPE - SCRLF 
TYPE » SCRLF 
JMP a#i0$ ; JUMP TO NEXT TEST - NO UNIBUS B 


TYPE ee 23 TYPE ASCIZ STRING 
BR 69% ;GET OVER THE ASCIZ 
.ASCIZ <15><12>/THE RH DOES HAVE UNI BUS B CONNECTED/ 


TYPE » $CRLF 
TYPE » SCRLF 


>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a@#F ILLRE sMOV 0 INTO SAVED RHWC 

— : SAVED REGISTER TO CHANGE 

JSR RO, a#F ILLRE sMOV WRFROM+<200.*2> INTO SAVED RHBA 
RHBA :SAVED REGISTER TO CHANGE 
WRFROM+<200.*2> DATA 

JSR RO,@#FILLRE ‘ ;MOV 1 INTO SAVED RHDST 

ae jeer y REGISTER TO CHANGE 


>*NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
;*AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC TEST DATA STARTING FROM ‘RHWC' 
18. ;18. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 
2$ RETURN TO 2$ ON NO ERROR 
ERROR 74 ;WHILE USING UNIBUS B 

WRITE DATA COMMAND CAUSED 
RTS PC ; IMPROPER REGISTER CHANGE 


o_ DATA GIVES WHAT SHOULD 


:BE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


7*NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


JSR RO, @#COMPAR - ; COMPARE TWO BLOCKS OF MEMORY 


SEQ 0156 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


027776 


030006 


030010 
030012 


030014 
030014 


030020 
030024 
030026 
030030 


030032 
030036 
030040 
030042 


030044 
030050 
030052 
030054 


030056 
030062 
030064 
030066 


030070 


030102 


030104 


28-MAR-79 


003534 


030014 


104075 
000207 


004737 


004037 
003534 
000310 
000000 


004037 
004354 


000070 
000377 


004037 
052525 
004037 
003310 


000070 
000377 


004037 


0 
177470 
003534 


000000 


09:03 


041524 


041374 


041374 


041374 


041374 


043476 


MACY11 30A(1052) 
740 


3$: 


4$: 


-BYTE 


B 13 
25-MAY-79 10:30 PAGE 158 


WRITE/READ DATA USING UNIBUS B SEQ 0157 
REINTO ;GOOD DATA STARTS FROM REINTO 
WRF ROM TEST DATA STARTS FROM WRFROM 
256. 3256. WORDS TO BE COMPARED 
3$ ;RETURN TO 3$ ON ERROR 
4$ ;RETURN TO 4$ ON NO ERROR 
ERROR 75 ;WHILE USING UNIBUS B 
;WRITE DATA COMMAND CHANGED 
RTS PC ;WRITE FROM BUFFER 


;*NOW A READ DATA COMMAND WILL BE GIVEN 
:*FILL READ INTO BUFFER WITH 200 ZEROS AND 56 OF ALL ONES 


JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
>R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 

JSR RO,@#CLAREA ;CLEAR 200. WORDS, FROM REINTO 


REINTO sSTARTING FROM REINTO 
200. ;200. WORDS 

sFILL WITH O 
JSR RO,@#CLAREA sCLEAR 56. WORDS, FROM REINTO+<200.*2> 
REINTO+<200.*2> sSTARTING FROM REINTO+<200.*2> 
56. 356. WORDS 
377 sFILL WITH 377 


*FILL WRITE FROM BUFFER WITH 200 OF 52525 AND 56 OF 0 


JSR RO, a#CLAREA ;CLEAR 200. WORDS, FROM WRFROM 

WRF ROM ; STARTING FROM WRFROM 

200. ;200. WORDS 

52525 sFILL WITH 52525 

JSR RO,a#CLAREA ;CLEAR 56. WORDS, FROM WRFROM+<200.*2> 
WRF ROM+<200.*2> STARTING FROM WRFROM+<200.*2> 
56. ;56. WORDS 

377 sFILL WITH 377 


7; *NOW FILL COMMAND 


JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 ;CYLINDER 0 

0 sSECTOR 0 

0 s TRACK 0 

-200. sWORD COUNT = 200. 

REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 
;BUFFER = REINTO 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 


C 13 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 159 


CZRJIDO, RPOG/S/6 FCTNL CTLRI 
CZRJID.P11 28-MAR-79 09:03 140 WRITE/READ DATA USING UNIBUS B SEQ 0158 
7553 030106 014000 ECL! FMT22 316 BITS PER WORD FORMAT 
7554 ; INHIBIT ECC CORRECTION 
7555 :DO0 NOT Jwnieit HEADER COMPARE 
7556 030110 002446 READAT :GET READY TO DO A READAT 
reer :READ DATA WITH 70 IN RHCS1 
7559 030112 052777 002000 152160 BIS #PSEL,@RHCS1 :SET PORT B 
re : THAT IS UNIBUS B 
veet :*NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
7564 030120 004037 041672 JSR RO, a#SAVER sSAVE REGISTERS 
7565 030124 002272 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
7566 030126 004612 SAVERE STARTING ADDRESS OF WHERE 
7567 THE REGISTERS ARE SAVED 
7568 030130 000022 18. NUMBER OF REGISTERS 
ty 44 SAVED = 18. 
7571 030132 004737 041604 JSR PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
7572 AND THAT NO STATUS BITS ARE STUCK = 1 
7573 030136 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
7574 THE FIRST SET OF BITS DON'T = 1 
ede 030142 000000 HALT :STOP 
7577. 030144 013777 004606 152114 MOV AMRP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
7578 TO "TIME1' IF P-CLOCK IS PRESEN 
7579 :OR TO ‘TIME2" IF P-CLOCK IS NOT T ORESENT 
7580 :"TIME’ WILL ONLY SAVE 
7581 CURRENT CYLINDER ADDRESS 
ta] :AND LOOK AHEAD REGISTERS 
7584 030152 013746 002446 MOV Q@#READAT,-(SP) ;GET READY TO MOVE COMMAND 
7585 030156 052716 002101 BIS WGO!'IE!PSEL, (SP) :GET READY TO SET ‘GO’ AND 
7586 sENABLE INTERRUPT 
7587 030162 012677 152112 MOV (SP)+,@RHCS1 :GO0 WITH 
7588 :70 IN RHCS1 FOR READ DATA 
7589 :WITH INTERRUPT ENABLED 
7590 030166 011100 MOV aR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
94 030170 011305 MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
7593 
7594 030172 104413 WAT WAIT FOR RDY BIT TO SET 
7595 030174 002300 RHCS1 sWAIT FOR RHCS1 REGISTER 
7596 030176 000200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
7597 030200 001614 908. ALLOW 9080 MICRO SECONDS 
7598 030202 001507 839. :RDY MUST SET BETWEEN 
7399 °690 AND 17470 MICRO SECONDS 
60 
7601 >*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
608 :#RO AND RS IMMEDIATELY AFTER GO 
60 
7604 030204 013746 002446 MOV Q@#READAT,-(SP) ;SAVE COMMAND 
7605 030210 052716 006101 BIS WIE 'GO!'DVA'PSEL, (SP) INCLUDE IE!GO!DVA!PSEL 
7606 030214 011037 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 
7607 030220 022600 CMP (SP)+,RO :DURING ABOVE OPERATION ONLY IE!GO!DVA!PSEL 


7608 AND COMMAND SHOULD BE SET 


CZR 


J10.P 


30222 


030234 


030236 
030242 
030246 


030250 
030252 
030256 
030262 


030264 


030264 


030312 


030314 


030320 
030322 
030324 
030326 
030330 


030332 
030334 


030336 


030336 
030342 
030344 
030346 
030350 


001405 


000001 


004037 


004612 
002354 
000022 
030332 
030336 


104072 
000207 


004037 
002470 
003534 
000400 
030354 


CZ7RJ1D0, Matted < ecm CTLRI 
28-MAR-79 


09:03 


001126 
004600 


041426 


041426 


041426 


042512 


043542 


MACY11 30A(1052) 
140 


71$: 


73$: 


5$: 


6$: 


D 13 
25-MAY-79 10:30 PAGE 160 
WRITE/READ DATA USING UNIBUS B 


BEQ 71$ ;BRANCH IF GOOD 
MOV RO, a#S$BDDAT ;BAD DATA 
MOV R1,a@#REGADR ;FAILING REGISTER RHCS1 
ERROR 21 ;DURING ABOVE OPERATION ONLY 

;COMMAND AND IE!GO!DVA!PSEL SHOULD BE SET 
MOV #MOL !DPRiVV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
MOV (SP) ,@#$GDDAT  ;SAVE FOR PRINTOUT 


CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPRi vv 
;SHOULD BE- SET 

BEQ 73% ;BRANCH IF GOOD 

MOV R5,a*$BDDAT ;BAD DATA 

MOV R3,a#REGADR ;FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


> *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,a#FILLRE :MOV O INTO SAVED RHWC 

"pe Seti REGISTER TO CHANGE 

JSR RO,@#FILLRE ;MOV REINTO+<200.*2> INTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 
REINTO*#<200.*2> ;DATA 

JSR RO,a#F ILLRE ;MOV 1 INTO SAVED RHDST 

weet : SAVED REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ DATA COMMAND 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC TEST DATA STARTING FROM ‘RHWC" 
18. 3:18. REGISTERS TO BE COMPARED 
5$ ;RETURN TO 5$ ON ERROR 
6$ RETURN TO 6$ ON NO ERROR 
ERROR ?2 ;WHILE USING UNIBUS B 

;READ DATA CAUSED IMPROPER 
RTS PC REGISTER CHANGE 


;GOOD DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
; AFTER COMMAND 


;*NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


JSR RO,a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRFROM 
REINTO ; TEST DATA STARTS FROM REINTO 
256. 3256. WORDS TO BE COMPARED 

7$ ;RETURN TO 7$ ON ERROR 


SEQ 0159 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJ10.P11 


030352 


030354 
030356 
030360 


28-MAR-79 
030360 


104073 
000207 


09:03 


MACY11 30A(1052) 25-MAY-79 
140 


E 13 
10:30 PAGE 161 


WRITE/READ DATA USING UNIBUS B 


10% 
7$: ERROR 73 
RTS PC 


10$: 


;RETURN TO 10$ ON NO ERROR 


;WHILE USING UNIBUS B 

; INCORRECT DATA AFTER 
;WRITE DATA FOLLOWED BY A 
;READ DATA 


on 


SEQ 0160 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
28-MAR-79 09:03 


CZRJID.P11 


030360 
030362 
030366 


030374 


030400 


030404 


030416 


030420 


030430 


000004 
012706 
012737 


004737 


004037 


000000 


004037 


000000 


001000 
000041 


041524 


041350 


041374 


MACY11 30A(1052) 
140 


004604 


F 13 
25-MAY-79 10:30 PAGE 162 
WRITE/READ DATA USING UNIBUS B 


speteeeeereneeeeererereererrrereeerereteeeeeeeeeeeeeeneeeeeeA eee 


S*TEST 41 IMPLIED SEARCH 


Be Be Be Be Be Be Be Be Be Be Be Be Se Be Be Se He Be Se Be Be Se Se He He 
eaeeeegereerneernereeserneterereeaernerererneternereeee 


1S141: 


ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEARCH 
Fath gat AND DATA IS GIVEN FOR MORE THAN ONE SECTOR 
WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR 0, KEYS=0, NUMBER OF WORDS 

266 (4 HEADER 256 DATA=0 4 HEADER 2 DATA=1 

THEN READ HEADER AND DATA FOR ABOVE SECTOR 1 ONLY 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
10000,0,0,0 AND 256 OF 0, 10000,1,0,0, AND 2 OF 1 

THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE SAVED 

THEN GO IS GIVEN FOR WRITE HEADER AND DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 


WITH 377, WRITE FROM BUFFER IS FILLED WITH 10000,1,0,0,1,1 
AND 254 OF ZEROS COMMAND IS LOADED INTO REGISTERS EXCEPT 
GO AND IE THEN ALL REGISTERS ARE SAVED 
GO 1S GIVEN FOR THE READ COMMAND, 256 WORDS 
ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA 1S COMPARED 
POPP PERRAEAAAAAAAAEAEAREREEE ERR R ERE ERR RE RRR RRR ARERR RRS SS 
SCOPE 
MOV WSTACK, SP ;RESET STACK 
MOV #41 ae TSTNM :SAVE TEST NUMBER 
JSR PC ,a#CLDISK ;SET RI-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHER1 
:G1VE RH-11 INITIALIZE 
:SETUP UNIT NUMBER 
S*FILL WRITE FROM BUFFER WITH HEADER 
JSR RO, a#FLHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ZLOCATION WHERE SAVED 
4 :NUMBER OF WORDS SAVED 
10000 :FIRST DATA WORD 
0 :SECOND DATA WORD 
0 :THIRD DATA WORD 
0 :FOURTH DATA WORD 
s*FILL WRITE FROM BUFFER WITH DATA 
JSR RO, @#CLAREA ;CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+ 10 :STARTING FROM WRF ROM*10 
256. 256. WORDS 


sFILL WITH 0 


SEQ 0161 


a 


6 13 
esis b RP04/5/6 5-48 CTLR1 =«MACY11 30A(1052) 25-MAY-79 10:30 PAGE 163 


10.P11 28-MAR-79 09:03 141 IMPLIED SEARCH SEQ 0162 
7735 
re *FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
7738 030432 004037 041350 JSR RO, a#FLHEAD : SAVE HEADER DATA IN WRFEROM+<260. *2> 
7739 030436 003500 UR ROM<266. *2> LOCATION WHERE SAVED 
7740 030440 000004 : NUMBER oF WORDS SAVED 
7741 030442 010000 10000 sFIRST DATA WORD 
7742 030444 000001 1 >SECOND DATA WORD 
7743 030446 000000 0 : THIRD DATA WORD 
cree 030450 000000 0 FOURTH DATA WORD 
7746 S*FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 
7747 030452 004037 041374 JSR RO, @#CLAREA CLEAR 2 WORDS, FROM WRFROM+<264.*2> 
7748 030456 003510 WRFROM+<264.#2> :STARTING FROM WRFROM+<264.*2> 
7749 030460 000002 2 :2 WORDS 
7750 030462 000001 1 sFILL WITH 1 
7751 
7752 
7753 :*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7754 >tAS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
7755 >*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 
7756 >*CHANGE WRITE FROM BUFFER. 
7757 
7758 
7759 030464 004037 041350 JSR RO, a#FLHEAD :SAVE HEADER DATA IN REINTO 
7760 030470 003534 REINTO sLOCATION WHERE SAVED 
7761 030472 000004 4 :NUMBER OF WORDS SAVED 
7762 030474 010000 10000 :FIRST DATA WORD 
7763 030476 000000 0 :SECOND DATA WORD 
7764 030500 000000 0 : THIRD DATA WORD 
7765 030502 000000 0 FOURTH DATA WORD 
7766 030504 004037 041374 JSR RO, a#CLAREA CLEAR 256. WORDS, FROM REINTO+10 
7767 030510 003544 REINTO+10 STARTING FROM REINTO+10 
7768 030512 000400 256. 7256. WORDS 
7769 030514 000000 0 sFILL WITH 0 
rr 
7772 030516 004037 041350 JSR RO, a#FLHEAD SAVE HEADER DATA IN REINTO+#<260. *2> 
7773 030522 004544 REINTO*<260. *2> LOCATION WHERE SAVED 
7774 030524 000004 :NUMBER OF WORDS SAVED 
7775 030526 010000 10000 sFIRST DATA WORD 
7776 030530 000001 1 :SECOND DATA WORD 
7777 +030532 000000 0 : THIRD DATA WORD 
7778 030534 000000 0 :FOURTH DATA WORD 
7779 030536 004037 041374 JSR RO, Q#CLAREA >CLEAR 2 WORDS, FROM REINTO+<264, *2> 
7780 030542 004554 RE INTO*<264, #2> :STARTING FROM REINTO*<264, #2> 
7781 030544 000002 2 :2 WORDS 
7782 030546 000001 1 sFILL WITH 1 
7783 
7784 
7785 s*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
Hae 
7788 030550 004037 043476 JSR RO,a#RUN :SETUP TO RUN FOR DATA COMMAND 
7789 030554 000000 0 :CYLINDER 0 
7790 030556 000 BYTE 0 sSECTOR 0 


CZRJ1D0, RPOS/5/6 FCTNL CILRI 


CZRJID.P11 


030557 
030560 


030562 


030564 
030566 


030570 


030572 
030576 
030600 


030602 


030604 
030610 
030614 
030616 


030624 
030630 


030634 


030640 
030642 


030644 
030646 
030650 
030652 
030654 


28-MAR-79 09:03 


000 
177366 
002470 


000000 
010000 


002444 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


002001 
001553 


041672 


041604 
067033 


004606 


002444 
000101 


151440 


MACY11 30A(1052) 
141 


151442 


-BYTE 


H 13 
25-MAY-79 10:30 PAGE 164 


IMPLIED SEARCH SEQ 0163 
0 ; TRACK 0 
-262.-4 : WORD COUNT (DATA) = 262. * 
34 HEADER WORDS 
WRFROM ;BUS 


ADDRESS 

STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 ;16 BITS PER WORD FORMAT 

;D0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT eect on 
WRIFOR ;GET READY TO DO A W 

;WRITE HEADER AND DATA WITH “OD, IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATI 


JSR RO, a#SAVER ;SAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
s THE REGISTERS ARE SAVED 
18. sNUMBER OF REGISTERS 
sSAVED = 18. 
JSR PC,@#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ,»CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
sTHE FIRST SET OF BITS DON'T = 1 
HALT 3 STOP 
MOV OMRP4VEC,ARPVEC ; 4-4 RPO4 VECTOR ADDRESS 


: O 'TIMET' IF P-CLOCK IS PRESENT 

‘OR TO ‘TIME2' IF P-CLOCK 1S NOI PRESENT 
:'TIME' WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


MOV Q@#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO‘1E, (SP) ;GET READY TO SET ‘GO" AND 
;ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 ;G0 WITH 


762 IN RHCS1 FOR WRITE HEADER AND DATA 
WITH INTERRUPT ENABLED 

MOV aR1,R0 SAVE RHCS1 DURING ABOVE OPERATION 

MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;tONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
1025. ;ALLOW 10250 MICRO SECONDS 

875. ;RDY MUST SET 


BETWEEN 
;1500 AND 19000 MICRO SECONDS 
>*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 


ti eerere FCTNL 


10.P 


030656 


030672 
030674 


030706 
030710 
030714 
030720 
030722 
030724 
030730 
030734 


030736 


030736 


030764 


030766 
030772 


031002 


031004 
031006 


CTLR1 


28-MAR-79 09:03 


013746 


022600 
001405 


104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


004037 
002272 


000002 


004037 


004612 
002354 
000022 
031004 
031010 


104027 
000207 


002444 
004101 
001124 


001126 
004600 


oo 
o— 
-—-o 
_—uU" 
No 
oO 


001126 
004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
141 


643%: 


66$: 


1 13 
25-MAY-79 10:30 PAGE 165 
IMPLIED SEARCH 


;*RO AND RS IMMEDIATELY AFTER GO 
MOV Q#WRIFOR,-(SP) ;SAVE COMMAND 


BIS WIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 


CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO, a#S$BDDAT ;BAD DATA 

MOV R1,Q#REGADR sFAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV WMOL!DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! vv 
;SHOULD BE SET 

BEQ 66% ;BRANCH IF GOOD 

MOV R5,a#$BDDAT ;BAD DATA 

MOV R3,Q#REGADR ;FAILING REGISTER RHDS1 

ERROR 65 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,@#FILLRE ;MOV 0 INTO SAVED RHWC 
a Arty REGISTER TO CHANGE 
A 
JSR RO, a#FILLRE >MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 
WRFROM+<266.*2> ;DATA 
JSR RO,@#FILLRE ;MOV 2 INTO SAVED RHDST 
eee ore REGISTER TO CHANGE 


;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC TEST DATA STARTING FROM ‘RHWC' 
18. 318. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 
2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 27 ;WRITE HEADER AND DATA 
RTS PC sarees IMPROPER REGISTER 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


:RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMANT 


:*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 


SEQ 0164 


CZRJ1D0, RPOS/5/6 FCTNL CTL 


J.13 
TLR1 = MACY11 30A(1052) 25-MAY-79 10:30 PAGE 166 
CZRJID.P11 28-MAR-79 09:03 141 


IMPLIED SEARCH SEQ 0165 
7903 :*NOTHING GOT CHANGED 
7904 
tone 031010 2$: 
7907 031010 004037 043542 JSR RO,a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
7908 031014 003534 REINTO ;GOOD DATA STARTS FROM REINTO 
7909 031016 002470 WRF ROM TEST DATA STARTS FROM WRFROM 
7910 031020 000412 266. 3266. WORDS TO BE COMPARED 
7911 031022 031026 3$ ;RETURN TO 3$ ON ERROR 
ade 031024 031032 4$ ;RETURN TO 4$ ON NO ERROR 
7914 
7915 031026 104030 3$: ERROR 30 ;WRITE HEADER AND DATA 
rete 031030 000207 RTS PC ; CHANGED WRITE FROM BUFFER 
7918 ;*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
7919 :*FOR SECTOR 1, 256 WORDS 
7920 ;*READ INTO BUFFER IS FILLED WITH ONES 
as 031032 4$: 
7923 031032 004737 041524 JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 
7924 ;R3-RHDS1, R4-RHERI 
7925 GIVE RH-11 INITIALIZE 
7926 ; SETUP UNIT NUMBER 
7927 031036 004037 041374 JSR RO,@#CLAREA ;CLEAR 260. WORDS, FROM REINTO 
7928 031042 003534 REINTO ; STARTING FROM REINTO 
7929 031044 000404 260. :260. WORDS 
ads 031046 000377 377 sFILL WITH 377 
7932 
7933 ;*WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA 
Bs 
7936 031050 004037 041350 JSR RO, a#FLHEAD ;SAVE HEADER DATA IN WRFROM 
7937 031054 002470 WRF ROM ;LOCATION WHERE SAVED 
7938 031056 000006 6 ;NUMBER OF WORDS SAVED 
7939 031060 010000 10000 sFIRST DATA WORD 
7940 031062 000001 1 :SECOND DATA WORD 


; THIRD DATA WORD 
FOURTH DATA WORD 
FIFTH DATA WORD 
SIXTH DATA WORD 


—~ 
so 
5 
~ 
o 
w 
— 
o 
o 
o 
o 
o 
o 
So 
So 
oS 
--—090 


7945 031074 004037 041374 JSR RO, Q#CLAREA :CLEAR 254 WORDS, FROM WRF ROM+<6.*2> 
7946 031100 002504 WRF ROM+<6,*2> STARTING FROM WRF ROM*+<6, *2> 
7947 031102 000254 254 3254 WORDS 

7948 031104 000000 0 sFILL WITH 0 

7949 

7950 

7951 ;*NOW FILL COMMAND 

7955 

7954 031106 004037 043476 JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 

7955 031112 000000 0 CYLINDER 0 

7956 031114 001 BYTE 1 SECTOR 1 

7957 031115 000 BYTE 0 ; TRACK 0 

7958 031116 177374 -256.°4 ;WORD COUNT (DATA) = 256. * 


CZRJ1DO, RPO4/5/6 FCTNL CTL 
79 09: 


CZRJID.P11 


031120 


031142 
031146 
031152 
031154 


031162 
031166 


031172 


28-MAR- 


003534 


000000 
014000 


002450 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


011100 
011305 


104413 
002300 
000200 
001614 
001507 


RI 
03 


041672 


041604 
067033 


004606 


002450 
000101 


151102 


MACY11 30A(1052) 
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151104 
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IMPLIED SEARCH 


REINTO 


0 
ECL! FMT22 


REFOR 


See 


SEQ 0166 


74 HEADER WORDS 


;BUS ADDRESS 

STARTING ADDRESS OF DATA 

:BUFFER = REINTO 

;00 NOT reg tt Bags yoy a 
316 BITS PER WORD FORM 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 


:GET READY TO DO A REFOR 
;READ HEADER AND DATA WITH 72 IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


JSR RO, @#SAVER 
RHWC 

SAVERE 

18. 

JSR PC ,a#CHECKT 


TYPE CPHALT 


HALT 

MOV O#RP4VEC ,ARPVEC 
MOV @#REFOR,-(SP) 
BIS MGO'IE, (SP) 

MOV (SP)+,@RHCS1 


MOV aR1,RO 
MOV OR3,R5 


SAVE REGISTERS 

;RHWC 1S THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 

; THE REGISTERS ARE SAVED 


;NUMBER OF REGISTERS 
;SAVED = 18. 


CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

;AND THAT NO STATUS BITS ARE STUCK = 1 
;CANNOT CONTINUE TESTING IF ANY OF 
eo SET OF BITS DON'T = 1 


+7 RPO4 VECTOR ADDRESS 
O 'TIME1’ IF P-CLOCK IS PRESENT 
‘OR TO "TIME2' IF P-CLOCK IS NOT PRESENT 


:'TIME* WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET ‘GO" AND 
ENABLE INTERRUPT 

;GO WITH 


372 IN RHCS1 FOR READ DATA 


WITH INTERRUPT ENABLED 
;SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


:*ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS 


;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 
;WAILT FOR RDY BIT IN RHCS1 REGISTER 


;ALLOW 9080 MICRO SECONDS 
;RDY MUST SET BETWEEN 
:690 AND 17470 MICRO SECONDS 


>*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
7*RO AND RS IMMEDIATELY AFTER GO 


CZRJ1D0, RPO4/5/6 FCTNL 


CZRJID.P11 
8015 
8016 031214 
8017 031220 
8018 031224 
8019 0312350 
8020 
8021 031232 
8022 031254 
8023 031240 
8024 031244 
8025 
8026 031246 
8027 031252 
8028 031256 
8029 
8030 031260 
8031 031262 
8032 031266 
8033 031272 
8034 
8035 031274 
8036 
8037 
8038 
8039 031274 
8040 031300 
8041 031302 
8042 031504 
8043 031310 
8044 031312 
8045 031314 
8046 031320 
8047 031322 
8048 
8049 
8050 
8051 
8052 
80535 031324 
8054 
8055 031330 
8056 031332 
8057 031334 
8058 031336 
8059 031340 
8060 
8061 
8062 031342 
8063 031544 
8064 
8065 
8066 
8067 
8068 
8069 


28-MAR-79 


002272 


000002 


004037 


004612 


031346 


104031 
000207 


001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
141 


67%: 


69$: 


5$: 


L 13 
25-MAY-79 10:30 PAGE 168 
IMPLIED SEARCH SEQ 0167 


MOV @#REFOR,-(SP)  ;SAVE COMMAND 
BIS WIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 


CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ é7$ ;BRANCH IF GOOD 

MOV RO, a#SBDDAT ;BAD DATA 

MOV R1,a#REGADR sFAILING REGISTER RHCS1 

ERROR 21 :DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV #MOL !DPR!VV,-(SP) 7 SAVE Ae SET DURING OPERATION IN RHDS1 

MOV (SP),a#SGDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! VV 
; SHOULD BE SET 

BEQ 69% ;BRANCH IF GOOD 

MOV R5 ,a#$BDDAT ;BAD DATA 

MOV R3,a#REGADR sFAILING REGISTER RHDS1 

ERROR 635 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#F ILLRE ;MOV 0 INTO SAVED RHWC 

— seath REGISTER TO CHANGE 

JSR RO,a#F ILLRE MOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 
REINTO+<260.*2> ;DATA 

JSR RO,a#F ILLRE ;MOV 2 INTO SAVED RHDST 

“yee fee sig REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ HEADER AND DATA 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 


SAVERE GOOD DATA SAVED IN ‘SAVERE" 
we TEST DATA STARTING FROM ‘RHWC* 
18. 318. REGISTERS 70 BE COMPARED 
5$ ;RETURN TO 5$ ON ERROR 
6$ ;RETURN TO 6$ ON NO ERROR 
ERROR 31 ;READ HEADER AND DATA CAUSED 
RTS PC ; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


>*NOW READ INTO BUFFER WILL BE CHECKED 10 SEE 
;*THAT READ WAS GOOD 


CZRJIDO, RPO4/ 
C2RJID.P11 


8072 031346 
8074 031346 


8079 031362 


8083 031364 
8084 031366 


8087 031370 


5/6 FCTNL CTLRI 
28-MAR-79 09:05 


004037 045542 
002470 
031370 


104032 
000207 


MACY11 30A(1052) 
141 


6$: 


7$: 


108: 


25-MAY-79 
IMPLIED SEARCH 


JSR . RO, a#COMPAR 


ERROR 32 
RTS PC 


M15 
10:30 PAGE 169 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
3260. WORDS TO BE COMPARED 
;RETURN TO 7$ ON ERROR 
;RETURN TO 10% ON NO ERROR 


sWRITE HEADER AND DATA 
;FOLLOWED BY A READ HEADER 
;AND DATA GAVE A READ ERROR 
ERROR MAY BE IN READ OR WRITE 


SEQ 0168 


CZRJID0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


8106 


lil Re ee eee 


EEE DAA NN NNN NNN SS So oS SOOO 
WN |S OBNG VEWN—OOONG VE WN —OOBNGUNEWN OOO 


031370 
031372 
031376 


031404 


031410 


031426 


031430 


28-MAR-79 


000004 
012706 
012737 


004737 


004037 


000000 


004037 


09:03 


001000 
000042 


041524 


041350 


041374 


MACY11 30A(1052) 
141 


004604 


N13 
25-MAY-79 10:30 PAGE 170 
IMPLIED SEARCH 


S ; eeeeeerererereereeeeeeeeereeeeereeereeeeeeeAeteeeeeeeeeeneeeeee 


TeTEST 42 IMPLIED SEEK TO CYL 001 


Se Se Se Se Be Be Be Be Be Bs Be Be Be Be Se Se Se Be Se Se Se Be Se Se os Be Hs 


eee ep eneeeeeeeeneeneeeneneeeeeeesne 


-SBTTL SEEK TESTS 


ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEEK FROM CYLINDER 0 
TO CYLINDER 1, A WRITE HEADER AND DATA IS GIVEN FOR MORE THAN 


ONE SECTOR OF WORDS 


WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
TRACK 18, SECTOR 21, KEYS=0, NUMBER OF WORDS 266 WORDS 
(4 HEADER, 256 DATA=1125, 4 HEADER 2 DATA = 2000 


THEN READ HEADER AND DATA FOR ABOVE, TRACK 0, SECTOR 0, CYL=1 


WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
10000,0,0,0 AND 256 OF 1125, 10001.0,0.0, AND 2 OF 2000 
THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE SAVED 

THEN GO IS GIVEN FOR WRITE HEADER AND DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR READ COMMAND READ INTO BUFFER IS FILLED 

WITH ALL ONES, WRITE FROM BUFFER 1S LOADED WITH 
10001,0,0,0 AND 2 OF 2000,254 OF ZEROS COMMAND IS LOADED 
INTO REGISTERS EXCEPT GO AND IE ALL REGISTERS ARE SAVED 
GO 1S GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


'WEERBBBSAAABAASBAAAAAASLASASASLESAASASASASESE ERE S ERE R REE SSR R SERRE EES 


1S142: 


SCOPE 

MOV #STACK,SP RESET STACK 

MOV #42,aaTSTNM SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 


:R3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 
SETUP UNIT NUMBER 


:*FILL WRITE FROM BUFFER WITH HEADER 
JSR RO,@#FLHEAD ;SAVE HEADER DATA IN WRFROM 


WRF ROM ;LOCATION WHERE SAVED 
4 ;NUMBER OF WORDS SAVED 


10000 sFIRST DATA WORD 

<18.*400>!<21.> ;SECOND DATA WORD 

0 s THIRD DATA WORD 

0 sFOURTH DATA WORD 

stFILL WRITE FROM BUFFER WITH DATA 

JSR RO,a#CLAREA :CLEAR 256. WORDS, FROM WRFROM+10 


SEQ 0169 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZR Pil 28 


J10.P -MAR-79 
8144 031434 002500 
8145 031436 000400 
8146 031440 001125 
8147 

148 
8149 
8150 
8151 031442 004037 
8152 031446 003500 
8153 031450 000004 
8154 031452 010001 
8155 031454 000000 
8156 031456 000000 
8157 031460 000000 
8158 
8159 
8160 031462 004037 
8161 031466 003510 
8162 031470 000002 
8163 031472 002000 
8164 
8165 
8166 
8167 
8168 
8169 
8170 
8171 
8172 031474 004037 
8173 031500 003534 
8174 031502 000004 
8175 031504 010000 
8176 031506 011025 
8177 031510 000000 
8178 031512 000000 
8179 031514 004037 
8180 031520 003544 
8181 031522 000400 
8182 031524 001125 
8183 
8184 
8185 031526 004037 
8186 031532 004544 
8187 031534 000004 
8188 031536 010001 
8189 031540 000000 
8190 031542 000000 
8191 031544 000000 
8192 031546 004037 
8193 031552 004554 
8194 031554 000002 
8195 031556 002000 
8196 
8197 
8198 
8199 


09:03 


041350 


041374 


041350 


041374 


041350 


041374 


MACY11 30A(1052) 
SEEK TEST 


25-MAY-79 
$ 


WRFROM* 10 
256. 
<18.*#40>!21. 


B14. 
10:30 PAGE 171 


SEQ 0170 
a FROM WRF ROM+10 


3256. WORDS 
ae 1 7 WITH <18.#40>!21. 


s*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 


JSR RO, a@#F LHEAD 
por SRR EOS Ae? 


10001 
0 
0 
0 


SAVE HEADER DATA IN WRFROM+<260.*2> 


;LOCATION WHERE SAVED 


;NUMBER OF WORDS SAVED 
sFIRST DATA WORD 
; SECOND DATA WORD 
THIRD DATA WORD 
FOURTH DATA WORD 


*FILL WRITE FROM BUFFER WITH Ay TRACK DATA 


JSR RO,@#CLAREA 
WRFROM*< 264, .*2> 


2000 


;CLEAR 2 WORDS, FROM WRFROM+<264.*2> 
7 STAR TING FROM WRFROM+<264. #2> 


;2 WORDS” 
sFILL WITH 2000 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

;*CHANGE WRITE FROM BUFFER. 


JSR RO, @#F LHEAD 
REINTO 
4 


10000 

escent de 

0 

JSR RO,@#CLAREA 
REINTO+10 

256. 

<18.*40>!21. 

JSR RO,a#FLHEAD 
REINTO*<266. .*2> 
10001 
0 
0 


0 
JSR RO,a#CLAREA 
RE INTO*<264, *2> 


2000 


;SAVE HEADER DATA IN REINTO 
;LOCATION WHERE SAVED 


;NUMBER OF WORDS SAVED 

FIRST DATA WORD 
;SECOND DATA WORD 

; THIRD DATA WORD 

;FOURTH DATA WORD 

;CLEAR 256. WORDS, FROM REINTO+10 
STARTING FROM REINTO+10 


256. WORDS 


FILL WITH <18.*40>!21. 


; SAVE HEADER DATA IN REINTO*<260. *2> 
LOCATION WHERE SAVED 
ot oF WORDS SAVED 
FIRST DATA WORD 


$ SECOND DATA WORD 
; THIRD DATA WORD 
;FOURTH DATA WORD 
;CLEAR 2 WORDS, 


FROM REINTO+<264,*2> 
STARTING FROM REINTO+<264,*2> 


32 WORDS 
sFILL WITH 2000 


;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


CZRJIDO, RPOG/S/6 FCTNL CTLRI 
CZRJID.P11 


031602 
031606 
031610 


031612 


031614 
031620 
031624 
031626 


031634 
031640 


031644 


031650 
031652 


28-MAR-79 


004037 
000000 


022 
177366 
002470 


000000 
010000 


002444 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


104413 
002300 
000200 


09:03 


043476 


041672 


041604 
067033 


004606 


002444 
000101 


150430 


MACY11 30A(1052) 
SEEK TEST 


150432 


C 14 
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. RO, a#RUN ; SETUP : _ FOR DATA COMMAND 


CYLIND 

21 ;SECTOR 21 

18. ;TRACK 18. 

-262.-4 ;WORD COUNT (DATA) = 262. + 
:4 HEADER WORDS 

WRF ROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS a INCREMENT 
FMT22 ;16 BITS PER WORD FORM 

:00 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 

;WRITE HEADER AND DATA WITH 62 IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATAI 
JSR RO,@#SAVER SAVE REGISTERS 


RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRESS OF WHERE 
s THE REGISTERS ARE SAVED 
18. sNUMBER OF REGISTERS 
sSAVED = 18. 
JSR PC ,aMCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


;AND THAT NO STATUS BITS ARE STUCK = 1 
;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 

HALT ; STOP 


MOV QARP4VEC,ARPVEC sme? RPO4 VECTOR ADDRESS 
:10 "TIME 1" IF P-CLOCK IS PRESEN 
;OR TO 'TIME2* IF P-CLOCK IS NOT "PRESENT 
:'TIME* WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


TYPE ,CPHALT 


MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS MGO!IE, (SP) ;GET READY TO SET ‘GO’ AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;G0 WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
WITH INTERRUPT ENABLED 

MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 

MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION = 16670 MICRO1 SEC, ONE SECTOR = 760 MICRO SEC 
WAT R RDY BIT TO SET 


sWAIT FO 
RHCS1 sWAIT FOR RHCS1 REGISTER 
RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 


SEQ 0171 


CZRJIDO, RPOS/5/6 FCTNL CTLRI 
CZRJIO.P11 


031662 
031664 


031744 
031746 


031746 


032014 


032016 


032022 
032024 
032026 
032030 


28-MAR-79 


003237 
001515 


013746 


022600 
001405 


104021 
012746 
011637 
022605 


001405 


104063 


004037 


000001 


004037 


004612 
002354 
000022 
032034 


09:03 


002444 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
SEEK TEST 


64$: 


66$: 


D 14 
” tinea 10:30 PAGE 173 


1695. 
845. 


;ALLOW 16950 ge SECONDS 
;ROY MUST SET BETWEEN 
:8500 AND 25400 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND R5 IMMEDIATELY AFTER GO 


MOV Q@#WRIFOR,-(SP) ;SAVE COMMAND 

BIS WIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 

MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO,a#$BDDAT ;BAD DATA 

MOV R1,a#REGADR ;FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
; COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV WMOL !DPRiVV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR' vv 
; SHOULD BE SET 

BEQ 66$ ;BRANCH IF GOOD 

MOV R5,a#$BDDAT BAD DATA 

MOV R3,Q#REGADR ;FAILING REGISTER RHDS1 

ERROR 65 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @#FILLRE :MOV 0 INTO SAVED RHWC 
RH C : SAVED REGISTER TO CHANGE 
JSR RO, a#FILLRE “MOV WRFROM+<266.*2> INTO SAVED RHBA 
RHBA ‘SAVED REGISTER TO CHANGE 
WRF ROM+<266. *2> sDATA 

JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHCA 
RHCA : SAVED REGISTER TO CHANGE 
JSR RO, aMFILLRE :MOV 1 INTO SAVED RHCC 
RHCC : SAVED REGISTER TO CHANGE 
JSR RO, a#F ILLRE *MOV 1 INTO SAVED RHDST 
RHDST : SAVED REGISTER TO CHANGE 


:*NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC TEST DATA STARTING FROM ‘RHWC' 

18. 718. REGISTERS TO BE COMPARED 

1$ ;RETURN TO 1$ ON ERROR 


SEQ 0172 


0, 
PI 


032032 


032034 
032036 


032040 
032040 


032054 


032056 
032060 


032062 
032062 


032066 
032072 
032074 
032076 


lelelelelejlejlojleolo)o) 
WAAL 
POPP PM PMP PM PON PO 
WAN NON ee SS © 
SMrROOLNVOSGC FNOOSe 


28-MAR-79 
032040 


104027 
000207 


004037 
003534 


032062 


104030 


000207 


004737 


004037 
003534 
000404 
177.77 


004037 


000000 


wet * su CTLRI 


09:03 


043542 


041524 


041374 


041350 


041374 


MACY11 30A(1052) 
SEEK TEST 


1$: 


2$: 


3$: 


4$: 


2¢ 
ERROR 27 
RTS PC 


;*NOW WRITE FROM BUFFER 
;*NOTHING GOT CHANGED 


JSR RO, a#COMPAR 
TO 


ERROR 30 
RTS PC 


;*NOW A READ HEADER AND 


E 14 
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SEQ 0173 


;RETURN TO 2$ ON NO ERROR 


;WRITE HEADER AND DATA 

; CAUSED IMPROPER REGISTER 

; CHANGE 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANT 


WILL BE CHECKED TO SEE THAT 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM REINTO 
TEST DATA STARTS FROM WRFROM 
3266. WORDS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;WRITE HEADER AND DATA 
; CHANGED WRITE FROM BUFFER 


DATA COMMAND WILL BE GIVEN 


;*READ INTO BUFFER IS FILLED WITH ONES 


JSR PC,a#CLDISK 
JSR RO, @#CLAREA 
REINTO 

260. 


«| 


SET R1I-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHERI 

;GIVE RH-11 INITIALIZE 

; SETUP UNIT NUMBER 

;CLEAR 260. WORDS, FROM REINTO 
STARTING FROM REINTO 

3260. WORDS 

sFILL WITH =-1 


;*WRITE FROM BUFFER IS FILLED WITH 10001,0,0,0,2000,2000, AND 254 OF 0 


JSR RO, @#FLHEAD 
WRFROM 


6 
10001 


JSR RO,@#CLAREA 
WRFROM+<6*2> 
254. 


;SAVE HEADER DATA IN WRFROM 

;LOCATION WHERE SAVED 

;NUMBER OF WORDS SAVED 

FIRST DATA WORD 

SECOND DATA WORD 

; THIRD DATA WORD 

FOURTH DATA WORD 

FIFTH DATA WORD 

SIXTH DATA WORD 

SCLEAR 254. WORDS, FROM WRFROM*+<6*2> 
| 
} 


> STARTING FROM WRF ROM+<6*2> 


3254. WORDS 
sFILL WITH 0 


CZRJ1D0, RPO4/5/6 A CTLR1 
CZRJID.P11 


032160 
032164 
032166 


032170 


032172 
032176 
032202 
032204 


032212 
032216 


032222 


28-MAR-79 


004037 
000001 
000 
000 
177374 
003534 


000000 
014000 


002450 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


09:03 


043476 


041672 


041604 
067033 


004606 


002450 
000101 


150052 


MACY11 30A(1052) 
SEEK TEST 


150054 


-BYTE 
-BYTE 


F 14 
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S SEQ 0174 


;*NOW FILL COMMAND 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
1 CYLINDER 1 


0 s SECTOR 0 

0 ; TRACK 0 

-256.°4 sWORD COUNT (DATA) = 256. + 
34 HEADER WORDS 


REINTO ;BUS ADDRESS 
STARTING ADDRESS OF DATA 
;BUFFER = REINTO 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO A REFOR 
;READ HEADER AND DATA WITH 72 IN RHCS1 


:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


JSR RO, a#SAVER ;SAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE ;STARTING ADDRESS OF WHERE 
: THE REGISTERS ARE SAVED 
18. :NUMBER OF REGISTERS 
:SAVED = 18. 
JSR PC ,a#CHECKT ; CHECK DVA,RDY,MOL,DPR,DRY.VV = 1 
:AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ,»CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
: THE FIRST SET OF BITS DON'T = 1 
HALT 3; STOP 


MOV O#RP4VEC ,ARPVEC ame RPO4 VECTOR ADDRESS 
;TO 'TIME1' IF P=CLOCK IS PRESENT 
‘OR TO 'TIME2' IF P-CLOCK IS NOT PRESENT 
:'TIME* WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#REFOR,-(SP) ;GET READY TO MOVE COMMAND 
BiS #GO!1E, (SP) ;GET READY TO SET ‘GO" AND 

ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 

372 IN RHCS1 FOR READ DATA 

:WITH INTERRUPT ENABLED 
MOV aR1,R0 SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 


8479 :BE THERE 


G 14 
CZRJIDO, RPOG/5S/6 FCTNL CTLR1 MACY11 30A(1052) 25-MAY-79 10:30 PAGE 176 
CZRJID.P11 28-MAR-79 09:03 SEEK TESTS SEQ 0175 

8424 032236 000200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
8425 032240 001614 908. :ALLOW 9080 MICRO SECONDS 

B426 032242 001507 839. ;RDY MUST SET BETWEEN 

mg [690 AND 17470 MICRO SECONDS 

8429 :*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 

Beet >*RO AND RS IMMEDIATELY AFTER GO 

8432 032244 013746 002450 MOV Q@MREFOR,-(SP) ;SAVE COMMAND 

8433 032250 052716 004101 BIS MIE!'GO!DVA,(SP) ;SNCLUDE IE!GO!DVA 

8434 032254 011637 001124 MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

8435 032260 022600 CMP (SP)+,RO :DURING ABOVE OPERATION ONLY IE!GO!DVA 
8436 :AND COMMAND SHOULD BE SET 

8437 032262 001405 BEQ 67$ :BRANCH IF GOOD 

8438 032264 010037 001126 MOV RO, a#$BDDAT :BAD DATA 

8439 032270 010137 004600 MOV R1,a#REGADR :FAILING REGISTER RHCS1 

8440 032274 104021 ERROR 21 DURING ABOVE OPERATION ONLY 

8441 COMMAND AND IE!GO!DVA SHOULD BE SET 
8442 032276 012746 010500 67$: MOV #MOL!DPRivV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
8443 032302 011637 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 

B444 032306 022605 CMP (SP)+,R5 DURING ABOVE OPERATION ONLY MOL!DPR! vv 
8445 SHOULD BE SET 

8446 032310 001405 BEQ 69% :BRANCH IF GOOD 

8447 032312 010537 001126 MOV RS, a#SBDDAT ;BAD DATA 

8448 032316 010337 004600 MOV R3,a#REGADR :FAILING REGISTER RHDS1 

B449 032322 104063 ERROR 63 DURING ABOVE OPERATION ONLY 

8450 :MOL'DPR!VV SHOULD BE SET 
tl 032324 69$: 
8453 :*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
8454 032324 004037 041426 JSR RO, a@#FILLRE MOV 0 INTO SAVED RHWC 
8455 032330 002272 RHWC SAVED REGISTER TO CHANGE 
8456 032332 000000 0 :DATA 
8457 032334 004037 041426 JSR RO, a#F ILLRE :MOV REINTO+<260.*2> INTO SAVED RHBA 
8458 032340 002274 RHBA =SAVED REGISTER TO CHANGE 
8459 032342 004544 REINTO+<260. *2> sDATA 
8460 032344 004037 041426 JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHDST 

8461 032350 002304 RHDST SAVED REGISTER TO CHANGE 
Bee 032352 000001 1 DATA 

4 
8464 :*COMPARE REGISTERS BEFORE READ HEADER AND DATA 

aces stW1TH REGISTERS AFTER COMMAND 

466 
8467 032354 004037 042512 JSR RO, a#COMREG >COMPARE SAVED REGISTERS wITH 

8468 :PRESENT VALUE 

8469 032360 004612 SAVERE :GOOD DATA SAVED IN "SAVERE' 

8470 032362 002354 we TEST DATA STARTING FROM ‘"RHWC" 

8471 032364 000022 18. :18. REGISTERS TO BE COMPARED 

8472 032366 032372 5$ :RETURN TO 5$ ON ERROR 

th 032370 032376 6$ :RETURN TO 6$ ON NO ERROR 

474 

8475 
8476 032372 104031 5$: ERROR 31 :READ HEADER AND DATA CAUSED 

8477 032374 000207 RTS PC : IMPROPER REGISTER CHANGE 

8478 ;GOOD DATA GIVES WHAT SHOULD 


CZRJ100, Swed FCTNL CTLRI 


CZRJID.P 


032376 
032376 


032412 


032414 
032416 


032420 


28-MAR-79 09:03 


004037 043542 
002470 


032420 


104032 
000207 


MACY11 30A(1052) 
SEEK TEST 


6$: 


7$: 


108: 


H 14 
° ePaper 10:30 PAGE 177 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


>*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
;*THAT READ WAS GOOD 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRFROM ;GOOD DATA STARTS FROM WRFROM 
REINTO TEST DATA STARTS FROM REINTO 
260. ;260. WORDS TO BE COMPARED 

7$ ;RETURN TO 7$ ON ERROR 

10$ ;RETURN TO 10$ ON NO ERROR 
ERROR 32 ;WRITE HEADER AND DATA 

RTS PC ;FOLLOWED BY A READ HEADER 


;AND DATA GAVE A READ ERROR 
;ERROR MAY BE IN READ OR WRITE 


SEQ 0176 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 


CZRJID.P11 


032420 
032422 
032426 


032434 


032440 


032520 
032526 


032534 


032542 
032546 


28-MAR-79 09:03 


000004 
012706 
012737 


004737 


ooooo°o°o°o°oo 
ee ee ee et etd 
MMMM nrnrnr rrr 
NNN NNN 
WANA AWWW Ww 
NNN 


001000 
000043 


041524 


010000 


002000 
000001 


004606 


002426 
000101 


MACY11 30A(1052) 
SEEK TEST 


004604 


032616 


033240 


147524 


1 14 
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$ SEQ 0177 


pp eeetererereerereerereeterereeerereteeeKeteKeKeKenAeeeeKeTAtereee 


>*TEST 43 SEEK & WRT TEST (CYL = 0-10) 


eaeeererneterneeneneeeees 


THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY ONE 
SEEK BUT BY TEN IMPLIED SEEKS ONE CYLINDER AT A TIME 


THIS TEST STARTS WITH A (ALREADY TESTED) RECALIBRATE 
THAT IS CYLINDER ZERO. THEN ON CYLINDER O SECTOR 
#21 TRACK #18 IT WRITES 266 WORDS THERE BY GETTING 
THE HEAD TO CYLINDER 1 THEN IT WRITES 266 WORDS ON 
CYLINDER 1 SECTOR #21 TRACK #18 THERE BY GETTING 

THE HEADS TO CYLINDER 2 

THIS IS REPEATED 10 TIMES GETTING THE 

HEADS TO CYLINDER 10 

THEN A SEEK COMMAND IS GIVEN TO CYLINDER 0 

AND DATA ALREADY WRITTEN IS CHECKED 


peeeeeeeeererereeetreeeeeereeeereeeteneeeeeeeeeeKeeKeeeeeereneee 


18143: 


SCOPE 

MOV WSTACK,SP RESET STACK 

MOV #43, a#TSTNM ;SAVE TEST NUMBER 

JSR PC,a#CLDISK ;SET RI-RHCS1, R2-RHCS2 


:R3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


3*THE FOLLOWING MOVES ARE TO INITIALIZE TEST FROM 
s*CYLINDER 0 

> *THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE 
>*GOING TO NEXT CYLINDER 


MOV #10000,a#ST1+10 

MOV #<<18.#40>!21.>,a#S512+10 
MOV #10001 ,a#S1T3+10 

MOV #2000,a4514+10 

MOV #0,a4ST544 

MOV #1,a#ST6+6 

MOV #1,0#ST6+16 

MOV #10001 ,a#519+10 

MOV #2000,a#S5110+10 

MOV #1,0#S5T1144 


s*THIS 1S TO GET THE HEADS TO CYLINDER 0 


MOV Q#RP4VEC,ARPVEC +7 RPO4 VECTOR ADDRESS 
TO 'TIME1' IF P-CLOCK IS PRESENT 
TOR TO "TIME2' IF P-CLOCK 1S NOT PRESENT 
:*TIME' WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @#RECALI,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!1E, (SP) ;GET READY TO SET ‘GO" AND 
;ENABLE INTERRUPT 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJ1D.P11 


032552 
032556 
032560 
032562 


032572 
032574 
032602 


032606 
032606 


032612 


032624 


032626 


032636 


032640 
032640 


032656 


032660 
032660 
032664 
032666 
032670 


28-MAR-79 
012677 


05670 
012737 
004737 


004037 
002470 


000000 


004037 
002500 
000400 
001125 


004037 


000000 


004037 
003510 
000002 
002000 


09:03 
147522 


000012 
041524 


041350 


041374 


041350 


041374 


MACY11 30A(1052) 
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001200 


S11: 


$¥2: 


S13: 


S14: 
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SEEK & WRT TEST (CYL = 0-10) SEQ 0178 


MOV (SP)+*,@RHCS1 360 WITH 
:6 IN RHCS1 FOR RECALIBRATE 
[WITH INTERRUPT ENABLED 


MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR DRY BIT TO SET 
RHDS1 iWALT FOR RHDS1 REGISTER 
DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999. ALLOW 319990 MICRO SECONDS 
24001. ;DRY MUST SET BETWEEN 

379980 AND 560000 MICRO SECONDS 
MOV #10. ,aaSTMP1 [TEN COUNT TO GET TO CYLINDER 10 
JSR PC,a#CLDISK SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO, a#FLHEAD >SAVE HEADER DATA IN WRFROM 

WRF ROM sLOCATION WHERE SAVED 

4 s;NUMBER OF WORDS SAVED 

10000 sFIRST DATA WORD 

<18.*400>!21. ;SECOND DATA WORD 

0 s THIRD DATA WORD 

0 sFOURTH DATA WORD 

s*FILL WRITE FROM BUFFER WITH DATA 

JSR RO,@#CLAREA 7CLEAR 256. WORDS, FROM WRFROM+10 
WRFROM+10 zSTARTING FROM WRFROM+10 
25 3256. WORDS 


6. 
<0.*2000>!<18.*40>!21. sFILL WITH <0.*2000>!<18.*40>!21. 


:*FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 


JSR RO, a#F LHEAD ;SAVE HEADER DATA IN WRFROM+<260.*2> 
WRF ROM+<260.*2> ;LOCATION WHERE SAVED 

6 ;NUMBER OF WORDS SAVED 

10001 FIRST DATA WORD 

0 ; SECOND DATA WORD 


0 s THIRD DATA WORD 

0 ;FOURTH DATA WORD 

s*FILL WRITE FROM BUFFER WITH NEXT TRACK DATA 

JSR RO, @#CLAREA :CLEAR 2 WORDS, FROM WRFROM+<264.*2> 
WRF ROM+<264,*#2> sSTARTING FROM WRFROM+<264, #2> 
2 32 WORDS 

1.*2000 sFILL WITH 1.*2000 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


032672 
032672 


032702 
032704 


032706 
032710 


032712 


032714 
032720 
032722 


032724 


032726 
032732 
032736 
032740 


032746 
032752 


032756 


032762 
032764 
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004037 
000000 
025 
022 
177366 
002470 


000000 
010000 


002444 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


011100 
011305 


9 09:03 


043476 


041672 


041604 
067033 


004606 


002444 
000101 


147316 
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147320 


S15: 


-BYTE 
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SEEK & WRT TEST (CYL = 0-10) 


;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO,@#RUN SETUP TO _ FOR DATA COMMAND 


0 CYLINDER 

21. ;SECTOR 21. 

18. ;TRACK 18. 

-262.-4 ;WORD COUNT (DATA) = 262. + 
34 HEADER WORDS 

WRFROM :BUS ADDRESS 


STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 ;00 NOT INHIBIT we ae INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

;D0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 

;WRITE HEADER AND DATA WITH 62 IN RHCS1 


;*SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


JSR RO, @#SAVER 7 SAVE REGISTERS 
RHWC s;RHWC 1S THE FIRST REGISTER SAVED 
SAVERE ;STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
18. [NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


MOV Q@#RP4VEC,ARPVEC ; 4+ RPO4 VECTOR ADDRESS 
TIME’ IF P=CLOCK IS PRESENT 
‘OR TO "TIME2' IF P-CLOCK IS NOT PRESENT 
:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV QA#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET 'GO" AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 :60 


WITH 
362 IN "RHCS! FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 
MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


:*ONE REVOLUTION = 1667 
7*MAX TIME ALLOWED = ONE REVOLUTION + SEEK * 2 SECTOR 
7*MIN TIME ALLOWED = 2 SECTORS * SEEK 


Q MICRO SECONDS, ONE SECTOR = a MICRO SEC. 


SEQ 0179 


L 14 
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CZRJID.P11 28-MAR-79 09:03 143 SEEK & WRT TEST (CYL = 0-10) SEQ 0180 
8671 
8672 
8673 032766 104413 WAT WAIT FOR RDY BIT TO SET 
8674 032770 002300 RHCS1 ‘WAIT FOR RHCS1 REGISTER 
8675 032772 000200 RDY ‘WAIT FOR ROY BIT IN —s REGISTER 
8676 032774 003237 1695. ALLOW 16950 MICRO SECONDS 
8677 032776 001515 845. “ROY MUST SET BETWEEN 
gh :8500 AND 25400 MICRO SECONDS 
8680 :*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
et >*RO AND RS IMMEDIATELY AFTER GO 
8683 033000 013746 002444 MOV Q#WRIFOR,-(SP) ;SAVE COMMAND 
8684 033004 052716 004101 BIS WIE'GO!'DVA,(SP) ; INCLUDE IE!GO!DVA 
8685 033010 011637 001124 MOV (SP) ,@#$GDDAT  ;SAVE FOR PRINTOUT 
8686 033014 022600 CMP (SP)+,RO DURING ABOVE OPERATION ONLY IE!GO!DVA 
8687 :AND COMMAND SHOULD BE SET 
8688 033016 001405 BEQ 64% BRANCH IF GOOD 
8689 033020 010037 001126 MOV RO, a#S$BDDAT ;BAD DATA 
8690 033024 010137 004600 MOV R1,a@#REGADR sFAILING REGISTER RHCS1 * 
8691 033030 104021 ERROR 21 :DURING ABOVE OPERATION ONLY 
8692 :COMMAND AND IE!GO!DVA SHOULD BE SET 
8693 033032 012746 010500 64$: MOV #MOL!DPR!VV,-(SP) : SAVE Bits SET DURING OPERATION IN RHDS1 
8694 033036 011637 001124 MOV (SP), @#SGDDAT  ;SAVE FOR PRINTOUT 
8695 033042 022605 CMP (SP)+,R5 sDURING ABOVE OPERATION ONLY MOL!DPR! vv 
8696 ;SHOULD BE SET 
8697 033044 001405 BEQ 66% sBRANCH IF GOOD 
8698 033046 010537 001126 MOV R5,a#$SBDDAT ;BAD DATA 
8699 033052 010337 004600 MOV R3,a#REGADR sFAILING REGISTER RHDS1 
8700 033056 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 
8701 :MOL'DPR!VV SHOULD BE SET 
Hh 033060 66$: 
jhe :*NOW CHANGES SAVED REGISTERS TO EXPECTED VALUES 
8706 033060 004037 041426 JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHWC 
8707 033064 002272 RHWC :SAVED REGISTER TO CHANGE 
8708 033066 000000 0 DATA 
8709 033070 004037 041426 JSR RO, a#F ILLRE :MOV WRFEROM+<266.*2> INTO SAVED RHBA 
8710 033074 002274 RHBA SAVED REGISTER TO CHANGE 
8711 033076 003514 WRF ROM+<266.*2> ;DATA 
8712 033100 ST6: 
8713 033100 004037 041426 JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHCC 
8714 033104 002334 RHCC ;SAVED REGISTER TO CHANGE 
8715 033106 000001 1 sDATA 
8716 033110 004037 041426 JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHCA 
8717 033114 002312 RHCA SAVED REGISTER TO CHANGE 
8718 033116 000001 1 :DATA 
8719 033120 004037 041426 JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHDST 
8720 033124 002304 RHDST SAVED REGISTER TO CHANGE 
ars) 033126 000001 1 sDATA 
8723 s COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
8724 stW1TH REGISTERS AFTER COMMAND 
8725 
8726 


CZRI1D0, RPOG/S/6 FCTNL CTLRI 


CZRJ1D.P11 


033152 
033152 


033156 
033162 
033164 
033166 


033170 
033170 


033220 
033222 


033232 


035234 
033234 


28-MAR-79 09:03 


004037 
004612 


000207 


004737 


004037 


177777 


004037 
002470 


000000 
004037 
002500 
000002 
002000 


004037 


000000 


004037 


042512 


041524 


041374 


041350 


041374 


041374 


043476 
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S17: 


S18: 


ST9: 


$110: 


ST11: 


25-mMAY-79 


SEEK & WRT TEST (CYL = 


JSR RO, a#COMREG 


wC 

18. 

$17 

$18 

ERROR 27 
RTS PC 


M14 
10:30 PAGE 182 
0-10) 


;COMPARE SAVED REGISTERS WITH 
:PRESENT VALUE 

:GOOD DATA SAVED IN ‘SAVERE' 
:TEST DATA STARTING FROM ‘RHWC" 
318. REGISTERS TO He COMPARED 
:RETURN TO ST7 ON ERROR 
:RETURN TO ST8 ON NO ERROR 
[WRITE HEADER AND DATA CAUSED 


: IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD BE 


; THERE 
RECEIVED DATA GIVES WHAT WAS BE 
; THERE AFTER COMMAND 


:*SETUP TO READ HEADER AND DATA FOR NEXT TRACK 
;*FILL READ INTO BUFFER WITH ALL ONES 


JSR PC ,aaCLDISK 


JSR RO,@#CLAREA 
REINTO 
a 


7SET R1-RHCS1, 
sR3-RHDSI, 
:GIVE RH-11 INITIALIZE 
s SETUP UNIT NUMBER 
;CLEAR 260. WORDS, 
sSTARTING FROM REINTO 
3260. WORDS 

sFILL WITH -1 


R2-RHCS2 
R4-RHER1 


FROM REINTO 


:*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, a#FLHEAD 
_—— 

10001 

0 

0 

JSR RO, @#CLAREA 
por eres? 

1*2000 

JSR RO,@#CLAREA 
WRF ROM+<6#2> 

a. 


;SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
FIRST DATA WORD 

;SECOND DATA WORD 

; THIRD DATA WORD 

;FOURTH DATA WORD 


CLEAR 2 WORDS, 


FROM WRFROM+<4*2> 
STARTING FROM WRFROM+<4*#2> 


;2 WORDS 
sFILL WITH 1*2000 


; CLEAR eet attr FROM WRF ROM+<6*2> 
ARTING FROM WRFROM+<6*#2> 


3254. vokds 
sFILL WITH 0 


*FILL COMMAND INTO REGISTERS 


JSR RO,d#RUN 


;SETUP TO RUN FOR DATA COMMAND 


SEQ 0181 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 


CZRJID.P11 
8783 the 
8784 033242 
8785 0332435 
8786 035244 
8787 
8788 035246 
8789 
8790 
8791 033250 
8792 033252 
8793 
8794 
8795 033254 
8796 
8797 
8798 
8799 
8800 
8801 
8802 033256 
8803 033262 
8804 033264 
8805 
8806 035266 
8807 
8808 
8809 033270 
8810 
8811 033274 
8812 
88135 033300 
8814 
8815 033302 
8816 
8817 
8818 
8819 
8820 
8821 
8822 
8823 033310 
8824 035314 
8825 
8826 035320 
8827 
8828 
8829 033324 
8850 033326 
8831 
8852 
8853 033330 
8834 033332 
8835 033334 
8836 035336 
8837 033340 
8838 


28-MAR-79 


000001 
000 
000 

177374 

003534 


000000 
014000 


002450 


004037 
002272 
004612 


000020 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


001507 


09:03 


041672 


041604 
067033 


004606 


002450 
000101 


146754 
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146756 


N14 
25-MAY-79 10:30 PAGE 
SEEK & WRT TEST (CYL = 


183 


0-10) 


sCYLINODER 1 


0 : 
0 
-256.-4 


CTOR 0 


; TRACK 0 
sWORD COUNT (DATA) = 256. + 
WORDS 


74 HEADER 


REINTO 


;BUS ADDRESS 


STARTING ADDRESS OF DATA 


0 
ECI!FMT22 


REFOR 


BUFFER = REINTO 

00 NOT INHIBIT BUS yoy: on 
316 BITS PER WORD FORM 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 


:GET READY TO DO A REFOR 
;READ HEADER AND DATA WITH 72 IN RHCS1 


> *SAVE > acai FOR COMPARISON AFTER READ HEADER 


:*AND DATA 
JSR RO.aNSAVER : SAVE REGISTERS 
RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 
THE REGISTERS ARE SAVED 
16. ;NUMBER OF REGISTERS 
;SAVED = 16. 
JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY.VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE -CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
HALT : STOP 
MOV OARPOVEC ,ARPVEC :SET RPO4 VECTOR ADDRESS 
TO ‘TIME1" IF P=CLOCK IS PRESENT 
TOR TO 'TIME2" IF P=CLOCK IS NOT PRESENT 
:*TIME* WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 
MOV Q@MREFOR,-(SP)  ;GET READY TO MOVE COMMAND 


BIS #GO'IE, (SP) :GET READY TO SET ‘GO" AND 

ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 :GO_WITH 

;72 IN RHCS1 FOR READ DATA 

sWITH INTERRUPT ENABLED 
MOV aR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY :WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 
839. :RDY MUST SET BETWEEN 


:690 AND 17470 MICRO SECONDS 


SEQ 0182 


a 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


033404 
033406 


033420 
033422 


033422 


033450 


033452 
033456 


033466 


033470 
033472 
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013746 
052716 
011637 
022600 
001405 
010037 
010137 
104021 
012746 
011637 
022605 


001405 


104063 


004037 


090001 


004037 
004612 


033474 


104031 
000207 


09:03 


002450 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
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64$: 


668: 


ST12: 


B 15 
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SEEK & WRT TEST (CYL = 0-10) 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


MOV @#REFOR,-(SP) ;SAVE COMMAND 
BIS WIE'GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 


CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 643 :BRANCH IF GOOD 

MOV RO,a#$BDDAT :BAD DATA 

MOV R1,a#REGADR ;FAILING REGISTER RHCS1 

ERROR 21 :DURING ABOVE OPERATION ONLY 
:COMMAND AND IE!GO!DVA SHOULD BE SET 

MOV #WMOL! DPR! VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! vv 
;SHOULD BE SET 

BEQ 66$ BRANCH IF GOOD 

MOV R5,a#$BDDAT - ;BAD DATA 

MOV R3,@#REGADR sFAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#F ILLRE ;MOv 0 INTO SAVED RHWC 

_— dare 5 REGISTER TO CHANGE 

JSR RO, a#F ILLRE sMOV REINTO+<260.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
REINTO+<260.*#2> DATA 

JSR RO, a#F ILLRE sMOV 1 INTO SAVED RHDST 

pest fe oy REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
s*REGISTERS AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

SAVERE GOOD DATA SAVED IN ‘SAVERE" 

wC TEST DATA STARTING FROM ‘RHWC’ 
8. ;18. REGISTERS TO BE COMPARED 
T12 ;RETURN TO ST12 ON ERROR 

113 ;RETURN TO ST13 ON NO ERROR 

R 

T 


ROR 31 ;READ HEADER AND DATA CAUSED 
S PC ; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 


E 
R 


SEQ 0185 


CZRJ1D0, RPO4/5/6 FCTNL CTL 
79 09: 


CZRJ1D.P11 


033474 
033474 


033516 


033604 


033610 
033610 


033614 
033620 


28-MAR-7 


opeg if 


033516 


104032 
000207 


000137 


004737 


004037 
000000 


Ri 
03 


043542 


032616 


001200 


032606 


041524 


041474 


MACY11 30A(1052) 
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032636 
032670 


033220 


$113: 


S114: 


$T16: 


$117: 


C15 
25-MAY-79 10:30 PAGE 185 
SEEK & WRT TEST (CYL = 0-10) 


;*READ INTO BUFFER IS CHECKED FOR PROPER READ 


ERROR 
RTS 


RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
; TEST DATA STARTS FROM REINTO 
3260. WORDS TO BE COMPARED 
;RETURN TO ST14 ON ERROR 


;RETURN TO ST15 ON NO ERROR 


32 ;WRITE HEADER AND DATA 

PC ;WITH AN IMPLIED SEEK 
;FOLLOWED BY A READ 
;HEADER AND DATA ON THE 
NEXT TRACK GAVE A 
;READ ERROR 
ERROR MAY BE READ OR WRITE 


Saree HEADS HAVE ADVANCED ONE CYLINDER BY AN IMPLIED 


;*CHANGES WILL BE MADE TO ENABLE GOING TO THE NEXT 
:*CYLINDER AND THEN THE ABOVE WILL BE REPEATED 
:*TILL CYLINDER 10 1S REACHED 


a#StT1+10 

#<1.#2000>,a#S12+10 

avs $1341 0 

#<1.*2000>,0451T4+10 

awsT5+4 

a#ST6+6 

a#ST6+16 

a#ST9+10 

<i. no aga a#s1T10+10 

awst11+4 

aavSTMP 1 s;COUNT FOR TEN TIMES 
ST16 : BRANCH IF 10 NOT DONE 
S117 710 COMPLETED SO CONTINUE 
ST1 ; JUMP AS 10 NOT DONE 


;*THE HEADS ARE NOW AT CYLINDER 10 

7*ALL REGISTERS WILL BE SAVED AND A SEEK WILL BE GIVEN 
;*T0 CYLINDER 0 

s*FILL REGISTERS FOR A SEEK COMMAND 


JSR 


JSR 
0 


PC ,a#CLDISK :SET R1I-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER! 
:GIVE RH-11 INITIALIZE 


;SETUP UNIT NUMBER 


RO,QM#SEEKCY ;SEEK FOR 
CYLINDER 0 


*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 


SEQ 0184 


CZRJ1D0, RPO4/5/6 FCTNL 


CZRJID.P11 


033622 
033626 
033630 
033632 


033634 


033642 
033646 
033652 


033656 
033660 
033662 


033672 


033674 


033710 
033712 


28-MAR-79 


004037 
002272 
004612 


000022 


013777 


013746 
052716 


012677 


000043 


013746 


022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


CTLR1 
09:03 


041672 


004606 


002452 
000101 


146422 


002452 
004301 
001124 


001126 
004600 


030500 
001124 


001126 
004600 


MACY11 see 
143 


146424 


64$: 


66$: 


D 15 
hap yim -79 10:30 PAGE 186 
K &@ WRT TEST (CYL = 0-10) 


JSR 
RHWC 
SAVERE 


18. 


MOV 


MOV 
BIS 


MOV 


MOV 
MOV 


RO, a#SAVER ;SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
;NUMBER OF REGISTERS 
; SAVED = 18. 


Q#RPGVEC,ARPVEC + SET RPO4 VECTOR ADDRESS 
TO 'TIME1" IF P-CLOCK IS PRESENT 
“OR TO 'TIME2’ IF P=CLOCK IS NOT PRESENT 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


@#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 
AGO'IE, (SP) ;GET READY TO SET ‘GO" #ND 
;ENABLE INTERRUPT 
(SP)+,@RHCS1 3G0 WITH 
374 IN RHCS1 FOR SEEK 
;WITH INTERRUPT ENABLED 
aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
AR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 


;*SEEK FOR ONE CYLINDER=7MILI SEC., FOR TEN=70 MILI SEC 


;WAIT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 70000 MICRO SECONDS 

;DRY MUST SET BETWEEN 

:69650 AND 70350 MICRO SECONDS 


:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


Q#SEECOM,-(SP) ;SAVE COMMAND 

MOVAIGO!IE!RDY, (SP) ; INCLUDE DVA!GO!IE!RDY 

(SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

(SP)+,RO ;DURING ABOVE OPERATION ONLY DVA!GO!I1E!RDY 
;AND COMMAND SHOULD BE SET 

64$ ;BRANCH IF GOOD 

RO, a#$BDDAT ;BAD DATA 

R1,@#REGADR sFAILING REGISTER RHCS1 

21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND DVA!GO!IE!RDY SHOULD BE SET 

#PIP'MOL'DPR!VV,-<SP)  ;SAVE ot SET DURING OPERATION IN RHDS1 

(SP), a#$GDDAT —;SAVE FOR PRINTOUT 

(SP)+,R5 ;DURING ABOVE OPERATION ONLY PIP! MOL!DPRi vv 
;SHOULD BE SET 


66% ;BRANCH IF GOOD 

R5,a#$BDDAT ;BAD DATA 

R3,Q#REGADR ;FAILING REGISTER RHDS1 

63 ;DURING ABOVE OPERATION ONLY 


;PIP!MOL!DPR!VV SHOULD BE SET 


SEQ 0185 


oo 
~~ 
re) 

at 


033772 
033776 


034000 
034002 
034004 


034006 
034012 


034014 
034016 
034020 


034022 
034026 


034036 


034040 
034042 


034044 
034044 
034050 
034052 
034054 


Hie RP04/5/6 FCTNL CTLRI 
10.P11 28-MAR-79 09:03 


004037 
002334 
000000 


053737 


004037 
002322 


000001 
000001 
100000 


004037 
002300 


000001 


000001 
100000 


004037 
004612 


034044 


104037 
000207 


sare 


177777 


MACY11 30A(1052) 
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25-MAY-79 10:30 PAGE 187 
SEEK & WRT TEST (CYL = 0-10) 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHCC 
a doe yy REGISTER TO CHANGE 


BIS Q#ATTENT ,QM#SAVERE +24 SET APPROPRIATE ‘ATA’ BITS 


FOR WORKING DRIVE IN 
; SAVED RHAS LOACTION 


JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 

ATA ;CHANGE ATA BIT 

JSR RO,a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 

1 31 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF SC IS 1 

sc ;CHANGE SC BIT 


;*COMPARE REGISTERS AFTER A SEEK COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 
wC TEST DATA STARTING FROM *RHWC' 
18. ;18. REGISTERS TO BE COMPARED 
$118 ;RETURN TO ST18 ON ERROR 
$119 ;RETURN TO ST19 ON NO ERROR 
ERROR 37 ;SEEK COMMAND CAUSED AN 
RTS PC ; ERROR 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER A SEEK COMMAND 


7*AT THIS eth? THE CURRENT CYLINDER IS GOOD AND THERE ARE 
;*NO ERROR BIT 

;*A READ NEADER AND DATA WILL BE DONE ON CYLINDER 0 
:*SECTOR 21 on 18, EXPECTED DATA IS 1125 

;*FOR 10 WOR 

:*CLEAR READ Into BUFFER WITH ALL ONES 


JSR RO,Q#CLAREA CLEAR 260. WORDS, FROM REINTO 
REINTO STARTING FROM REINTO 

260. 3260. WORDS 

=| FILL WITH =1 





F 15 
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CZRJID.P11 28-MAR-79 09:03 143 SEEK & WRT TEST (CYL = 0-10) SEQ 0187 
coer s*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
9065 034056 004037 041350 JSR RO, a#F LHEAD SAVE HEADER DATA IN WRFROM 
9066 034062 002470 WRFROM LOCATION WHERE SAVED 
9067 034064 000004 4 :NUMBER OF WORDS SAVED 
9068 034066 010000 10000 :FIRST DATA WORD 
9069 034070 011025 <18.*400>!<21.> sSECOND DATA WORD 
9070 034072 000000 0 s THIRD DATA WORD 
9071 034074 000000 0 :FOURTH DATA WORD 
9072 034076 004037 041374 JSR RO, @#CLAREA CLEAR 10. WORDS, FROM WRFROM+<4.#2> 
9073 034102 002500 WRF ROM+<4,#2> STARTING FROM WRFROM+<4.*#2> 
9074 034104 000012 10. :10. WORDS 
+ 4 034106 001125 <18.#40>!<21.> sFILL WITH <18.*40>!<21.> 
9077 034110 004037 041374 JSR RO, a#CLAREA CLEAR 246. WORDS, FROM WRFROM+<14,*2> 
9078 034114 002524 WRF ROM+<14,#2> STARTING FROM WRFROM+<14,*#2> 
9079 034116 000366 246. 3246. WORDS 
9080 034120 177777 1 FILL WITH -1 
9081 
9082 
ps0 ¥4 :*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 
9085 034122 004037 043476 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
9086 034126 000000 0 sCYLINDER 0 
9087 034130 025 -BYTE 21. SECTOR 21. 
9088 034131 022 .BYTE 18. TRACK 18. 
9089 034132 177762 -10.-4 sWORD COUNT (DATA) = 10. + 
9090 74 HEADER WORDS 
9091 034134 003534 REINTO :BUS ADDRESS 
9092 STARTING ADDRESS OF DATA 
9093 ‘BUFFER = REINTO 
9094 034136 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
9095 034140 014000 ECL! FMT22 :16 BITS PER WORD FORMAT 
9096 : INHIBIT ECC CORRECTION 
9097 “DO NOT INHIBIT HEADER COMPARE 
9098 034142 002450 REFOR :GET READY TO DO A REFOR 
9099 READ HEADER AND DATA WITH 72 IN RHCS1 
3101 
9102 034144 004737 041604 JSR PC, @#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
9103 :AND THAT NO STATUS BITS ARE STUCK = 1 
9104 034150 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
9105 THE FIRST SET OF BITS DON'T = 1 
4s 034154 000000 HALT > STOP 
9108 034156 013777 004606 146102 MOV A#RPGVEC,@RPVEC ;SET RPO4 VECTOR ADDRESS 
9109 :TO 'TIME1' JF P=CLOCK IS PRESEN 


9110 :OR TO 'TIME2' IF P-CLOCK IS NOT " PRESENT 
9111 :'TIME’ WILL ONLY SAVE 

9112 ;CURRENT CYLINDER ADDRESS 

9113 ;AND LOOK AHEAD REGISTERS 

9115 

9116 034164 013746 002450 MOV Q#REFOR,-(SP)  ;GET READY TO MOVE COMMAND 

aaa 034170 052716 000101 BIS #GO!I1E, (SP) ;GET READY TO SET 'GO* AND 

911 


ENABLE INTERRUPT 


aon 
~~ 


ee et tt a ce 


0, 
PI 


034174 


034200 


034210 


034212 


034226 


034230 
034232 


034234 


press ore FCTNL CTLRI 


28-MAR-79 09:03 


012677 


104413 
002300 
000200 
001614 
001507 


ryt 


034234 


104032 
000207 


146100 


043542 


MACY11 30A(1052) 
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S126: 


S127: 


6 15 
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SEEK & WRT TEST (CYL 
MOV (SP)+*,@RHCS1 


;*CHECK READ WORDS 
JSR RO,a#COMPAR 


ERROR 32 
RTS PC 


= 0-10) 


;G0_WITH 


372 IN RHCS1 FOR READ DATA 
;wiTH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 

;ROY MUST SET BETWEEN 

;690 AND 17470 MICRO SECONDS 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
:260. WORDS TO BE COMPARED 
;RETURN TD ST26 ON ERROR 
;RETURN TO ST27 ON NO ERROR 


;READ HEADER AND DATA 
sFOLLOWING A SEEK TO CYLINDER 0 
sFROM CYLINDER 10 GAVE AN 

s ERROR 


SEQ 0188 


CZRJ1D0, RPO4/5/6 x CTL 
CZRJID.P11 


034234 
034236 
034242 


034250 


034254 


034262 
034266 
034272 


034276 
034300 


034302 
034310 
034312 
034314 


034320 


034322 


28-MAR-79 


000004 
012706 
012757 


004737 


013777 


013746 
052716 


012677 


056701 


004037 
000012 


004037 


TLRI 
09:03 


001000 
000044 


041524 


004606 


002426 
000101 


146002 


041474 


041672 


MACY11 30A(1052) 
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004604 


146004 


H 15 
25-MAY-79 10:30 PAGE 190 
SEEK & WRT TEST (CYL = 0-10) SEQ 0189 


;;eetereerererereerereteretenererereeeetererereteeteteneeeneerene 


*TEST 44 SEEK & READ TEST (CYL = 009) 
:* THIS TEST DEPENDS ON HEADER AND DATA WRITTEN BY THE 
se PREVICUS TEST. AT THIS POINT THE HEADS ARE ON 
:* CYLINDER 0 
‘* 
:* ALL REGISTERS ARE SAVED 
:* A SEEK IS GIVEN TO CYLINDER 9 
:* ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
:* DATA WRITTEN ON CYLINDER 9 IS CHECKED 
;yeeeeeeererereeeeeeeeeeeeeeteteee etree Kee Ree Reet ATe eee 
7144: SCOPE 
MOV WSTACK,SP ;RESET STACK 
MOV #44, ae TSTNM ;SAVE TEST NUMBER 
JSR PC ,a#CLDISK :SET RI-RHCS1 R2-RHCS2 


;R3-RHDS1, R4-RHER1 
3GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


;*THIS GETS HEADS TO CYLINDER 0 


. MOV Q#RPGVEC,ARPVEC ;SET RPOS VECTOR ADDRESS 


;TO 'TIME1' IF P-CLOCK IS PRESENT 

;OR TO 'TIME2' IF P=CLOCK IS NOT PRESENT 
:'TIME' WILL ONLY SAVE 

; CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


MOV Q@MRECALI,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO!IE,(SP) ;GET READY TO SET ‘GO* AND 
s;ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 ;GO WITH 


36 IN RHCS1 FOR RECALIBRATE 
;WITH INTERRUPT ENABLED 


MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV OR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR DRY Bil TO SET 

RHDS1 i WAIT FOR RHDS1 REGISTER 

DRY WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999. ALLOW 319990 oa tus SECONDS 

24001. ;DRY MUST SET B 


TWEEN 
;79980 AND 560000 MICRO SECONDS 
s*FILL REGISTERS FOR A SEEK COMMAND 


JSR RO,aM#SEEKCY ;SEEK FOR 
10. sCYLINDER 10. 


s*SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 
JSR RO, a#SAVER SAVE REGISTERS 


CZRJ1D0, RPO4/5/6 su 


CZRJID.P11 


034326 
034350 


034332 


034334 


034342 
034346 


034352 


034356 
034360 


034362 


034372 


034374 
034400 
034404 
034410 


034412 
034414 
034420 
034424 


034426 
034432 
034436 


034440 
034442 
034446 
034452 


034454 


28-MAR- 


002272 
004612 


000022 


013777 


013746 
052716 


012677 


000043 


013746 
052716 
011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


CTLRI 


9 09:03 


004606 


002452 
000101 


145722 


002452 
004301 
001124 


001126 
004600 


030500 
001124 


001126 
004600 


MACY11 30A(1052) 
144 


145724 


67$: 


69$: 


25-MAY-79 


SEEK & READ TEST (CYL = 


RHWC 
SAVERE 


18. 


MOV 


MOV 
BIS 


MOV 


MOV 
MOV 


> *SEEK FOR ONE CYLINDER= 


@#RP4VEC,ARPVEC 


@#SEECOM,-(SP) 
#GO!IE, (SP) 


(SP)+,@RHCS1 


aR1,RO 
OR3,R5 


1 15 
10:30 PAGE 191 
009) 


;RHWC 1S THE FIRST REGISTER SAVED 
; STARTING ADDRESS OF WHERE 

; THE REGISTERS ARE SAVED 

;NUMBER OF REGISTERS 

;SAVED = 18. 


:SET RPO4 VECTOR ADDRESS 
TO ‘TIME1" IF P-CLOCK IS PRESEN 

TOR TO 'TIME2’ IF P-CLOCK IS NOT " PRESENT 
;'TIME' WILL ONLY SAVE 

:CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


3GET READY TO MOVE COMMAND 

7GET READY TO SET ‘'GO* AND 

sENABLE INTERRUPT 

360 WITH 

74 IN RHCS1 FOR SEEK 

sWITH INTERRUPT ENABLED 

:SAVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


7 MILI SEC., FOR TEN=70 MILI SEC 


sWAIT FOR DRY BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 70000 "ae re SECONDS 

;DRY MUST SET BETWEEN 

69650 AND 70380 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO 


O#SEECOM,-(SP) 


MDVA!GO!IE!RDY, (SP) 


(SP) ,a#$GDDAT 
(SP)+,RO 


67$ 
RO, a#$BDDAT 
eat ce 


#PIP!MOL!DPRi VV, 
(SP) ,a#$GDDAT 
(SP)+,R5 


69% 
R5,a#$BDDAT 
RS ,a#REGADR 


» SAVE COMMAND 
s INCLUDE DVA!GO!'IE!RDY 

:SAVE FOR PRINTOUT 

sDURING ABOVE OPERATION ONLY DVA:GO!IE!RDY 
:AND COMMAND SHOULD BE SET 

;BRANCH IF GOOD 

;BAD DATA 

;FAILING REGISTER RHCS1 

;DURING ABOVE OPERATION ONLY 

; COMMAND AND DVA!GO!IE!RDY SHOULD BE SET 
(SP) 3 SAVE Bits SET DURING OPERATION IN RHDS1 
7 SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY PIP!MOL!DPR!i VV 
;SHOULD BE SET 

;BRANCH IF GOOD 

;BAD DATA 

sFAILING REGISTER RHDS1 

sDURING ABOVE OPERATION ONLY 
;PIP!MOL!DPR!VV SHOULD BE SET 


SEQ 0190 





CZRJIDO, RPOS/5/6 FCTNL CTLRI 
CZRJ10.P11 


034454 
034460 
034462 


034464 


034472 
034476 


034500 
034502 
034504 


034506 
034512 


034514 


034516 
034520 


034522 
034526 


034536 


034540 
034542 


034544 
034544 


034550 
034554 


28-MAR-79 09:03 


004037 041426 
002334 
000012 


053737 004740 


004037 042404 
002322 


000001 
000001 
100000 


004037 042404 
002300 


000001 
000001 
100000 


004037 042512 


004612 
002354 
000022 
034540 
034544 


104037 
000207 


004737 041524 


004037 041374 
003534 


MACY11 30A(1052) 
T44 


004636 


2$: 
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SEEK & READ TEST (CYL = 009) SEQ 0191 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR 
RHCC 
10. 


BIS 


RO,a#F ILLRE ;MOv 10. INTO SAVED RHCC 
Sty REGISTER TO CHANGE 


Q#ATTENT ,Q#SAVERE +24 7SET APPROPRIATE ‘ATA’ BITS 
FOR WORKING DRIVE IN 
; SAVED RHAS LOACTION 


RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF ATA IS 1 
; CHANGE ATA BIT 


RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 


:1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF SC IS 1 
;CHANGE SC BIT 


> *COMPARE REGISTERS AFTER A SEEK COMMAND 


JSR 
SAVERE 


ERROR 
RTS 


RO, @#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
;GOOD DATA SAVED IN ‘SAVERE' 
; TEST DATA STARTING FROM ‘RHW. * 
718. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
;RETURN TO 2$ ON NO ERROR 


37 7SEEK COMMAND CAUSED 
PC ; ERROR 
a ry GIVES WHAT SHOULD 


sPE CEIVED DATA GIVES WHAT WAS 
“THERE AFTER A SEEK COMMAND 


>*AT THIS POINT THE CURRENT CYLINDER 1S GOOD AND THERE ARE 
7*NO ERROR BITS 

>A READ HEADER AND DATA WILL BE DONE ON CYLINDER 9 
:*SECTOR 21 a 18, EXPECTED DATA IS 23125 

;*FOR 20 WOR 

*CLEAR READ. INTO BUFFER WITH ALL ONES 


JSR 


JSR 


REINTO 


PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
7 R3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 
RO,Q#CLAREA CLEAR 260. WORDS, FROM REINTO 
STARTING FROM REINTO 





CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


034556 
034560 


034562 


034612 
034614 
034620 


034622 
034624 


034626 


034636 
034640 


034642 
034644 


034646 


034650 
034654 
034660 
034662 


28-MAR-7 


000404 
177777 


004037 
0 


000024 
023125 


004037 
002550 


000372 
177777 


004037 
000011 
025 
022 
177750 
003534 


000000 
014000 


002450 


004737 
104401 
000000 
013777 


9 09:03 


041350 


041374 


041374 


043476 


041604 
067033 


004606 


MACY11 30A(1052) 
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145376 


-BYTE 
-BYTE 
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SEEK & READ TEST (CYL = 009) SEQ 0192 


260. 3260. WORDS 
o| sFILL WITH -1 


StFILL «WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, @#FLHEAD SAVE HEADER DATA IN WRFROM 

WRF ROM ;LOCATION WHERE SAVED 

4 ;NUMBER OF WORDS SAVED 

10011 FIRST DATA WORD 

<18.*400>!<21.> ; SECOND DATA WORD 

0 ;THIRD DATA WORD 

0 [FOURTH DATA WORD 

JSR RO,@#CLAREA SCLEAR 20. WORDS, FROM WRFROM+<4.*2> 


WRF ROM+<4,*%2> 20 | emcidses FROM WRFEROM+<4.*2> 
‘ 320. wo 
<9.*2000>!<18.*#40>!<21.> sFILL WITH <9.*#2000>!<18.#40>!<2 
JSR RO,@#CLAREA :CLEAR 250. WORDS, FROM WRFROM+<24,*#2> 
WRF ROM+<24.%2> sSTARTING FROM WRFEROM+<24,*#2> 
250. 3250. WORDS 
-1 sFILL WITH -1 


7*FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 


JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
9. ;CYLINDER 9. 
21. ;SECTOR 21. 
18. ; TRACK 18. 
-20.-4 ;WORD COUNT (DATA) = 20. + 
74 HEADER WORDS 
REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;DO NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:00 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO A REFOR 

READ HEADER AND DATA WITH 72 IN RHCS1 


JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE /CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


MOV Q#RP4VEC ,ARPVEC :SET RPO4 VECTOR ADDRESS 
TO 'TIME1’ IF P-CLOCK IS PRESENT 
OR TO 'TIME2' IF P-CLOCK IS NOT PRESENT 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


CZRJ1D0, RPOG/5/6 FCTINL CILRI 


CZRJID.P11 28-MAR-79 09:03 
9372 
9373 
9374 034670 013746 002450 
4 1 034674 052716 000101 
9377 034700 012677 145374 
9378 
9379 
9380 
9381 
9382 034704 104413 
9383 034706 002300 
9384 034710 000200 
9385 034712 001614 
9386 034714 001507 
9387 
9388 
9389 
9390 
9391 034716 004037 043542 
9392 034722 002470 
9393 034724 003534 
9394 034726 000404 
9395 034730 034734 
9396 034732 034740 
9397 
9398 
9399 034734 104032 
9400 034736 000207 
9401 
9402 
9403 034740 
9404 
9405 
9406 
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3$: 


4$: 


Lt 15 
25-MAY-79 10:30 PAGE 194 
SEEK & READ TEST (CYL = 009) 


MOV @#REFOR,-(SP) 


BIS #GO!1E,(SP) 


MOV (SP)+,@RHCS1 


;*CHECK READ WORDS 


JSR RO, a#COMPAR 
WRF ROM 


ERROR 32 
RTS PC 


;GET READY TO MOVE COMMAND 
;GET READY TO SET ‘'GO* AND 


ENABLE INTERRUPT 


GO_WITH 
372 IN RHCS1 FOR READ DATA 


:WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 
WAIT FOR RHCS1 REGISTER 


WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9080 MICRO SECONDS 


;RDY MUST SET BETWEEN 


3690 AND 17470 MICRO SECONDS 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
7 TEST DATA STARTS FROM REINTO 
3260. WORDS TO BE COMPARED 


;RETURN TO 3$ ON ERROR 


;RETURN TO 4$ ON NO ERROR 


;READ HEADER AND DATA 


FOLLOWING A SEEK TO CYLINDER 9 


>FROM 


. 


ROR 


CYLINDER 0 GAVE AN 


SEQ 0193 


Mm 15 
CZRJIDO, RPOG/5/6 FCTNL CTLR1 = MACY11 30A(1052) 25-MAY-79 10:30 PAGE 1% 
CZRJIDO.P11 28-MAR-79 09:05 WRITE CHECK DATA & WRITE PROTECT TESTS SEQ 0194 


sane -SBTTL WRITE CHECK DATA & WRITE PROTECT TESTS 





— 
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CZRJID.P11 28-MAR-79 09:03 145 WRITE CHECK HEADER AND DATA SEQ 0195 
9410 peeeererrerrereerereeeeeererereeeeeteereeeeeteRAteReteReeeeeenee 
Sets . S*TEST 45 WRITE CHECK HEADER AND DATA 
9413 oe WRITE CHECK HEADER AND DATA CYLINDER 5 FORMAT 16 BITS PER WORD 
9414 3¢ TRACK 7, a pe 4, KEYS 0, NUMBER OF WORDS 266 
9415 7@ CONSISTING O 
9416 3@ 10 WORDS OF "13344 (6 BITS FOR CYL, 5 FOR TRACK, 5 FOR SECTOR) 
9417 7° 10 WORDS OF 777 ? 
9418 ;* 10 WORDS OF 0. a 
9419 :* 10 WORDS OF 052525 
9420 :* 10 WORDS OF 125252 
9421 oe 16 WORDS OF LEFT ROTATING ZERO (EG 177776,177775) 

9422 7* 16 WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 
9423 7@ 174 WORDS OF 377 
9424 se 4 WORDS OF HEADER 
9425 se 2 WORDS OF 12345 
9426 ce 
9427 i* 
9428 3@ FIRST THE ABOVE DATA IS WRITTEN BY A WRITE HEADER AND 
9429 hd DATA COMMAND 
9430 3* CHECK FOR NO ERRORS 
9431 3@ THEN THE ABOVE DATA 1S READ BY A READ HEADER AND DATA 
9432 2° CHECK FOR NO ERRORS 
9433 :* THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN 
9434 ppeeeetereerrereeeeeeeeeeeeeeereeeeAeee eee AAA eA Tere AKT 
9435 034740 000004 TS1T45: SCOPE 
9436 034742 012706 001000 MOV #STACK,SP RESET STACK 
bg 034746 012737 000045 004604 MOV #45 ,aeTSTNM ;SAVE TEST NUMBER 
9439 034754 004737 041524 JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
9440 7R3-RHDS1, R4-RHER1 
9441 :GIVE RH-11 INITIALIZE 
9442 ; SETUP UNIT NUMBER 
9443 034760 004737 041604 JSR PC ,a#CHECKT ;CHECK DVA,RDY.MOL,DPR,DRY,VV = 1 
9444 ;AND THAT NO STATUS BITS ARE STUCK = 1 
9445 034764 104401 067033 TYPE »CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
9446 ;THE FIRST SET OF BITS DON'T = 1 
py 034770 000000 HALT 7 STOP 
4G 
aes 7*GET HEADS TO CYLINDER 5 
Ly 
9451 034772 004037 041474 JSR RO, a#SEEKCY ; SEEK FOR 
aet 034776 000005 5 CYLINDER 5 
9454 035000 013777 004606 145260 MOV O#RP4VEC ,ARPVEC t+ hy RPO4 VECTOR ADDRESS 
9455 TO 'TIME1" IF P=CLOCK IS PRESENT 
9456 OR TO 'TIME2’ IF P=CLOCK IS NOT PRESENT 
9457 >" TIME* WILL ONLY SAVE 
9458 ;CURRENT CYLINDER ADDRESS 
9459 ;AND LOOK AHEAD REGISTERS 
061 
9462 035006 013746 002452 MOV O#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 
9463 035012 052716 000101 BIS #GO!I1E, (SP) ;GET READY TO SET ‘GO* AND 
9464 ;ENABLE INTERRUPT 


9465 035016 012677 145256 MOV (SP)+,@RHCS1 260 WITH 


CZRJ100, OS vietal +e FCTNL CTLRI 


CZRJID.P 28-MAR-79 09:03 
9466 
9467 
9468 035022 011100 
9469 035024 011305 
9470 
9471 
9472 035026 104413 
9473 035030 002322 
9474 035032 000200 
9475 035034 015530 
9476 035036 000043 
9477 
9478 
9479 035040 004737 041524 
9480 
9481 
9482 
9483 
9484 
9485 
9486 035044 004037 041350 
9487 035050 002470 
9488 035052 000004 
9489 035054 010005 
9490 035056 003404 
9491 035060 000000 
9492 035062 000000 
9493 
9494 
9495 
9496 
9497 035064 004037 041374 
9498 035070 002500 
9499 035072 000012 
zaat 035074 012344 
9502 035076 004037 041374 
9503 035102 002524 
9504 035104 000012 
9505 0351 177777 
9506 
9507 035110 004037 041374 
9508 035114 002550 
9509 035116 000012 
4 035120 000000 
9512 035122 004037 041374 
9513 035126 002574 
9514 035130 000012 
eae 035132 052525 
9517 035134 004037 041374 
9518 035140 002620 
9519 035142 000012 
9520 035144 125252 


MACY11 30A(1052) 
145 


25-MAY-79 


B 16 
10:30 PAGE 197 


WRITE CHECK HEADER AND DATA 


MOV aR1,RO 

MOV @R3,R5 

WAT 

RHDS1 

DRY 

7000. 

35. 

JSR PC ,a#CLDISK 


74 IN RHCS1 FOR SEEK 
:WITH INTERRUPT ENABLED 
SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


WAIT FOR DRY BIT TO SET 

WAIT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN pee REGISTER 
;ALLOW 70000 gine SECONDS 

;DRY MUST SET BETWEEN 

[69650 AND 70380 MICRO SECONDS 


SET RI-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


;*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO,a#FLHEAD 
WRF ROM 
4 


10005 
ere 


0 


;SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
FIRST DATA WORD 

;SECOND DATA WORD 
THIRD DATA WORD 
FOURTH DATA WORD 


:*10 WORDS OF OF THE FOLLOWING DATA 
3* 12344,17777,0,52525,125252 


JSR RO,@#CLAREA 
WRF ROM+<4*#2> 


10. 
<5#2000>!<7#40>!'4 


JSR RO,a#CLAREA 
apc cat 


-1. 


JSR RO,a#CLAREA 
+ Veenceitbegte a 


JSR RO, @#CLAREA 
WRF ROM+<34,*2> 


10. 
52525 

JSR RO, a#CLAREA 
URFROM*<44. *2> 


125252 


;CLEAR 10. WORDS, FROM WRFROM+<4*2> 
STARTING FROM WRFROM+<4*#2> 
310. WORDS 


sFILL WITH <5#2000>!<7#40>!4 


CLEAR 10. WORDS, FROM WRFROM+<14.*2> 
STARTING ©ROM WRFROM+<14,*2> 

;10. WORDS 

sFILL WITH =1 


:CLEAR 10. WORDS, FROM WRFROM+<24,#2> 
:STARTING FROM WRFROM+<24.*2> 

310. WORDS 

sFILL WITH O 


CLEAR 10. WORDS, FROM WRFROM+<34.*2> 
10 STARTING FROM WRFROM+<34, *2> 


. WORDS 
sFILL WITH 52525 


CLEAR 10. WORDS, FROM WRFROM+<44,#2> 
10 ;STARTING FROM WRFROM+<44,*2> 


. WORDS 
sFILL WITH 125252 
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CZRJID.P11 28-MAR-79 09:03 145 WRITE CHECK HEADER AND DATA SEQ 0197 

9522 

$$ s*FILL LEFT ROTATING ZEROS FROM WRFROM+<54.*#2> 

9525 035146 010146 MOV R1,- ::PUSH R1 ON STACK 

9526 035150 012700 177776 MOV WtTTI6. RO DATA 

9527 035154 012705 000020 MOV #16.,R : COUNT 

9528 035160 012701 002644 MOV #WREROM*+<54.*2>,R1 ;WHERE DATA GOES 

9529 035164 000261 SEC 

9530 035166 010021 1$: MOV RO,(R1)¢ :STORE DATA 

9531 035170 006100 ROL RO ‘GET ZERO ONE BIT LEFT 

9532 035172 005305 DEC RS :COUNT 16 

9333 035174 001374 BNE 1$ *BRANCH IF 16 NOT DONE 

4434 Z*FILL LEFT ROTATING ONE INTO WRFROM*+<65.*2> 

9537 035176 000241 CLC 

9538 035200 012700 000001 MOV #1,R0 

9539 035204 010021 2$: MOV RO,(R1)¢ 

9540 035206 006300 ASL RO 

9541 035210 103375 PC 2$ 

94 | 035212 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

9544 

9 s*FILL REST OF DATA 

9547 035214 004037 041374 JSR RO, a@#CLAREA SCLEAR 174. WORDS, FROM WRFROM+<86. *2> 

9548 035220 002744 WRF ROM+<86, #2> :STARTING FROM WREROM+<86. *2> 

9549 035222 000256 174. 2174. WORDS 

9550 035224 000377 377 sFILL WITH 377 

v1 

9553 035226 004037 041350 JSR RO, a#FLHEAD :SAVE HEADER DATA IN WRFROM+<260. *2> 

9554 035232 003500 WRF ROM+<260. #2> LOCATION WHERE SAVED 

9555 035234 000004 4 NUMBER OF WORDS SAVED 

9556 035236 010005 10005 sFIRST DATA WORD 

9557 035240 003405 <7#400>!5 SECOND DATA WORD 

9558 035242 000000 0 s THIRD DATA WORD 

9559 035244 000000 0 FOURTH DATA WORD 

9560 035246 004037 041374 JSR RO, @#CLAREA >CLEAR 2 WORDS, FROM WRFROM+<264.*2> 

9561 035252 003510 WRF ROM+<264.*2> =STARTING FROM WRFROM+<264. #2> 

9562 035254 000002 2 :2 WORDS. 

9365 035256 012345 <5*2000>!<7#40>!5 sFILL WITH <5*2000>!<7#40>!5 
64 

9565 

9566 

9567 :*READ INTO BUFFER WILL BE CLEARED 

9568 035260 004037 041374 JSR RO, @#CLAREA :CLEAR 266. WORDS, FROM REINTO 

9569 035264 003534 REINTO s START ING FROM REINTO 

9570 035266 000412 266. +266. WORDS 

9571 035270 177400 177400 FILL Bits 177400 

9572 

9573 

957% s*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 

9 

9576 035272 004037 043476 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 


9577 035276 000005 5 :CYLINDER 5 


CZRJIDO, RPOG/S/6 FCTNL CTLRI 
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035300 


035314 
035320 
935322 


035324 


035326 
035332 
035336 
035340 


035346 
035352 


035356 
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094 
007 
177366 
002470 


000000 
010000 


002444 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


104413 
002300 
000200 
001732 
001502 


004037 
002272 


09:03 


041672 


041604 
067033 


004606 


002444 
000101 


144716 


041426 
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-BYTE 


D 16 Tien 
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WRITE CHECK HEADER AND DATA SEQ 0198 
6 SECTOR 4 
7 ;TRACK 7 
-262.-4 ;WORD COUNT (DATA) = 262. 
34 woo WORDS 
WRFROM ;BUS ADDRESS 
; STARTING wept OF DATA 
:BUFFER = WRFROM 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 


;D0 NOT INHIBIT ECC CORRECTION 
;00 NOT INHIBIT wer COMPARE 

WRIFOR ;GET READY TO DO A WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 


cd 
;*NOW SAVE REGISTERS FOR COMPARISON AF7ER WRITE HEADER AND DATA * 


JSR RO, @#SAVER ;SAVE REGISTERS 
RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 


; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 


JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


;AND THAT NO STATUS BITS ARE STUCK = 1 
TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
HALT ; STOP 


MOV OARP4VEC,ARPVEC 4% RPO4 VECTOR ADDRESS 
*TIME1’ IF P-CLOCK IS PRESENT 
‘OR TO ‘TIME2' IF P-CLOCK iS NOT PRESENT 
:'TIME® WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET ‘GO" AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 :GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
WITH INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
986. ALLOW 9860 MICRO SECONDS 
834. ;RDY MUST SET BETWEEN 
;1520 AND 18200 MICRO SECONDS 
:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO,@#F ILLRE :MOv 0 INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 
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035402 


035422 


035424 
035430 


035442 
035444 


035446 
035446 


035452 


035462 


035464 


035466 
035470 


035472 


28-MAR-79 
000000 
004037 041426 
002274 


003514 
004037 041426 
002304 


003406 


004037 
004612 


035446 


104027 
000207 


004737 


004037 
000005 
004 
007 
177366 
003534 


000000 
014000 


002450 


09:03 


042512 


041524 


043476 
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3$: 


4$: 


E 16 
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WRITE CHECK HEADER AND DATA SEQ 0199 


0 ;DATA 

JSR RO, a#F ILLRE sMOV WRFROM*+<266.*2> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 

WRF ROM+<266.*2> ;DATA 


3D 
JSR RO, a#F ILLRE sMOv 3406 INTO SAVED RHDST 
RHDST ;SAVED REGISTER TO CHANGE 
3406 DATA 


:*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
stWiTH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG :COMPARE SAVED REGISTERS WITH 
: PRESENT VALUE 
SAVERE GOOD DATA SAVED IN ‘SAVERE' 
WC sTEST DATA STARTING FROM ‘RHWC‘ 
18. 718. REGISTERS TO BE COMPARED 
3$ ;RETURN TO 3$ ON ERROR 
4% sRETURN TO 4$ ON NO ERROR 
ERROR 27 ;WRITE HEADER AND DATA 
RTS PC :CAUSED IMPROPER REGISTER 
; CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
:BE THERE 


RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER COMMANT 


>*NOW FILL COMMAND FOR READ 


JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
5 CYLINDER 5 
4 SECTOR 4 
7 ;TRACK 7 
-262.°4 ;WORD COUNT (DATA) = 262. + 
34 HEADER WORDS 
REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO A REFOR 

;READ HEADER AND DATA WITH 72 IN RHCS1 


:*NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
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035474 
035500 
035502 


035504 


035506 
035512 
035516 
035520 


035526 
035532 


035536 


035542 


035552 


035554 


035602 


035604 
035610 


CTLRI 
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004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


013746 
052716 


012677 


104413 
002300 


001502 


004037 


003406 


004037 
004612 


041672 


041604 
067033 


004606 


002450 
000101 


144536 


041426 


041426 


041426 


042512 
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WRITE CHECK HEADER AND DATA SEQ 0200 
JSR RO, a#SAVER ; SAVE REGISTERS 
RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
18. [NUMBER OF REGISTERS 
7SAVED = 18. 
JSR PC ,@#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
;AND THAT NO STATUS BiTS ARE STUCK = 1 
TYPE ~CPHALT : CANNOT CONTINUE TESTING IF ANY OF 
;THE FIRST SET OF BITS DON'T = 1 
HALT 3; STOP 


MOV OMRP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
;10 *TIME1' IF P-CLOCK IS PRESEN 
[OR TO "TIME2* IF P=CLOCK IS NOT "PRESENT 
:'TIME’ WILL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV O#REFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO'1E, (SP) ;GET READY TO SET ‘GO" AND 
s;ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


;72 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
986. ;ALLOW 9860 MICRO SECONDS 

834. ;RDY MUST SET BETWEEN 


31520 AND 18200 MICRO SECONDS 
> *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#F ILLRE :MOv 0 INTO SAVED RHWC 

= etsy REGISTER TO CHANGE 

JSR RO, a#FILLRE sMOV REINTO+<266.*2> INTO SAVED RHBA 
RHBA > SAVED mettre TO CHANGE 
REINTO+<266.*2> ;DAT 

JSR RO, a#F ILLRE MOV 3406 inte SAVED RHDST 

RHDST sSAVED REGISTER TO CHANGE 

3406 DATA 


> *COMPARE REGISTERS BEFORE READ HEADER AND DATA 
stW1TH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 


6 16 
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CZRJ1D.P11 28-MAR-79 09:03 145 WRITE CHECK HEADER AND DATA SEQ 0201 
9746 035612 002354 we TEST DATA STARTING FROM ‘RHWC' 
9747 035614 000022 18. 318. REGISTERS TO BE COMPARED 
9748 035616 035622 5$ RETURN TO 5$ ON ERROR 
a 035620 035626 6% RETURN TO 6$ ON NO ERROR 
9751 
9752 035622 104031 5$: ERROR 21 READ HEADER AND DATA CAUSED 
9753 035624 000207 RTS PC : IMPROPER REGISTER CHANGE 
9754 :GOOD DATA GIVES WHAT SHOULD 
9755 :BE THERE RECEIVED DATA GIVES WHAT WAS 
9756 sRECEIVED DATA GIVES WHAT WAS 
ded s THERE AFTER COMMAND 
9759 :*NOwW READ INTO BUFFER WILL BE CHECKED TO SEE 
9760 :*THAT READ WAS GOOD 
9761 
A | 035626 6$: 

9764 035626 004037 043542 JSR RO, a#COMPAR ; COMPARE TWO BLOCKS OF MEMOPY 
9765 035632 002470 WRF ROM GOOD DATA STARTS FROM WRFROM 
9766 035634 003534 REINTO TEST DATA STARTS FROM REINTO 
9767 035636 000412 266. 266. WORDS TO BE COMPARED 
9768 035640 035644 7$ :RETURN TO 7$ ON ERROR 

4b 035642 035650 10% sRETURN TO 10% ON NO ERROR 
9771 

9772 

9773 035644 104032 7$: ERROR 32 ;WRITE HEADER AND DATA 

9774 035646 000207 RTS PC sFOLLOWED BY A READ HEADER 
9775 AND DATA GAVE A READ ERROR 
g7re sERROR MAY BE IN READ OR WRITE 
9778 :*#A WRITE,READ HAS BEEN SUCCESSFULLY COMPLETED 

9779 >*NOW A WRITE CHECK HEADER AND DATA WILL SE GIVEN 
o7e0 s*FILL THE WRITE CHECK HEADER AND DATA 

aret 035650 10$: 

9784 035650 004737 041524 JSR PC, ,a#CLDISK :SET R1-RHCS1, R2-RHCS2 

9785 sR3-RHDS1, R4-RHERI 

9786 GIVE RH-11 INITIALIZE 

ores ;SETUP UNIT NUMBER 

9789 035654 004037 043476 JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
9790 035660 000005 5 sCYLINDER 5 

9791 035662 004 BYTE 4 sSECTOR 4 

9792 035663 007 BYTE 7 s TRACK 7 

9793 035664 177366 -262.-4 WORD COUNT (DATA) = 262. + 
9794 :4 HEADER WORDS 

9795 035666 002470 WRF ROM ;BUS ADDRESS 

9796 : STARTING ADDRESS OF DATA 
9797 [BUFFER = WRFROM 

9798 035670 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
9799 035672 014000 ECL! FMI22 716 BITS PER WORD FORMAT 
9800 : INHIBIT ECC CORRECTION 

9801 >DO NOT INHIBIT HEADER COMPARE 
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CZRJID.P11 28-MAR-79 09:03 145 WRITE CHECK HEADER AND DATA SEQ 0202 
9802 035674 002440 WRCHDT GET READY TO DO A WRCHDT 
po ob sWRITE CHECK HEADER AND DATA WITH 52 IN RHCS1 
9805 
cant :*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
9808 035676 $125: 
9809 035676 004037 041672 JSR RO, a#SAVER ;SAVE REGISTERS 
9810 035702 002272 RHWC :RHWC IS THE FIRST REGISTER SAVED 
9811 035704 004612 SAVERE STARTING ADDRESS OF WHERE 
9812 THE REGISTERS ARE SAVED 
9813 035706 000022 18. NUMBER OF REGISTERS 
oie SAVED = 18. 
9816 2935710 004737 041604 JSR PC,a#CHECKT :CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
9817 :;AND THAT NO STATUS BITS ARE STUCK = 1 
9818 0357146 104401 067033 TYPE ,CPHALT CANNOT CONTINUE TESTING IF ANY OF 
9819 THE FIRST SET OF BITS DON'T = 1 
ot 035720 000000 HALT :STOP 
9822 035722 013777 004606 144336 MOV A@MRPGVEC, ARPVEC ;SET RPOS VECTOR ADDRESS 
9823 TO *TIME1" IF P-CLOCK IS PRESENT 
9824 OR TO 'TIME2" IF P=CLOCK IS NOT PRESENT 
9825 i :'TIME’ WILL ONLY SAVE 
9826 CURRENT CYLINDER ADDRESS 
9827 AND LOOK AHEAD REGISTERS 
9828 
9829 
9830 035730 013746 002440 MOV Q#WRCHDT,-(SP) ;GET READY TO MOVE COMMAND 
9831 035734 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET ‘GO’ AND 
9832 ENABLE INTERRUPT 
9833 035740 012677 144334 MOV (SP)+,@RHCS1 GO WITH 
9834 352 IN RHCS1 FOR WRITE CHECK HEADER AND DATA 
9835 :WITH INTERRUPT ENABLED 
9836 035744 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
a3? 035746 011305 MOV aR3,R5 :SAVE RHDS1 DURING ABOVE OPERATION 
9839 
9840 035750 104413 WAT sWAIT FOR RDY BIT TO SET 
9841 035752 002300 RHCS1 sWAIT FOR RHCS1 REGISTER 
9842 035754 000200 RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
9843 035756 001732 986. sALLOW 9860 MICRO SECONDS 
9844 035760 001502 834. :RDY MUST SET BETWEEN 
gees :1520 AND 18200 MICRO SECONDS 
46 
9847 s*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
gc8 +#RO AND RS IMMEDIATELY AFTER GO 
984 
9850 035762 013746 002440 MOV Q#WRCHDT,-(SP) ;SAVE COMMAND 
9851 035766 052716 004101 BIS MIE!DVA!GO,(SP) ; INCLUDE IE!DVA!GO 
9852 035772 011637 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 
9853 035776 022600 CMP (SP)+,RO sDURING ABOVE OPERATION ONLY IE!DVA!GC 
9854 :AND COMMAND SHOULD BE SET 
9855 036000 001405 BEQ 64% ;BRANCH IF GOOD 
9856 036002 010037 001126 MOV RO, a#$BDDAT ;BAD DATA 


9857 036006 010137 004600 MOV R1,Q#REGADR sFAILING REGISTER RHCS1 

































036012 
036014 
036020 
036024 


036026 


036040 
036042 


036042 


036070 


036072 


036076 
036100 
036102 
036104 
036106 


036110 
036112 


036114 


CZRJIDO, RPOG/5/6 au 


CZRJID.P11 28-MAR- 


104021 
012746 
011637 
022605 


001405 


104063 


004037 
002272 


003406 


004037 
004612 
036110 
036114 


104040 
000207 


001126 
004600 


041426 


041426 


041426 


042512 


MACY11 30A(1052) 
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64%: 


663: 


8$: 








1 16 
25-MAY-79 10:30 PAGE 204 
WRITE CHECK HEADER AND DATA 


ERROR 21 ;DURING ABOVE OPERATION ONLY 

;COMMAND AND IE!DVA!GO SHOULD BE SET 
MOV #MOL !DPR!VV,=(SP) ; SAVE oat SET DURING OPERATION IN RHDS1 
MOV (SP) ,a#SGDDAT  ;SAVE FOR PRINTOUT 


SEQ 0205 


CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR! vv 
; SHOULD BE SET 
BEQ 66$ ;BRANCH IF GOOD 


MOV R5 ,a#SBDDAT ;BAD DATA 

MOV R3,a#REGADR sFAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 
;MOL!DPR! vv SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EYPECTED VALUES 


JSR RO, aF ILLRE sMOvV O INTO SAVED RHWC 

— see REGISTER TO CHANGE 

JSR RO, a#F ILLRE sMOV WRFROM*+<266.*2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 

WRF ROM+<266.*2> DATA 

JSR RO, a#F ILLRE sMOv 3406 INTO SAVED RHDST 

RHDST :SAVED REGISTER TO CHANGE 

3406 DATA 


> *COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG :COMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 
SAVERE :GOOD DATA SAVED IN ‘SAVERE' 
wC :TEST DATA STARTING FROM ‘RHWC* 
18. 718. REGISTERS TO BE COMPARED 
8$ ;RETURN TO 8$ ON ERROR 
i} 3 sRETURN TO 9$ ON NO ERROR 
ERROR 40 sWRITE CHECK CAUSED 
RTS PC ;AN IMPROPER REGISTER 
: CHANGE 


;GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


< 


CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 


9905 


036114 
036116 
036122 


036130 


036134 
036140 
036144 


036146 
036152 


036154 


036162 
036166 


036172 
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000004 
012706 
012737 


004737 


004737 
104401 
000000 


004037 
000005 


013777 


013746 
052716 


012677 


09:03 


001000 
000046 


041524 


041604 
067033 


041474 


004606 


002452 
000101 


144102 
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004604 


144104 


i 


- 
-* 
:* 
-# 
-@ 
+o 
-* 
-® 
-« 
-* 
-* 
-¢ 
-* 
-* 
-* 
-* 
-* 
S 
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WRITE CHECK HEADER AND DATA 


‘Reet eetereererererereteeeeeeeeeeeeeerAeteeeeteeeeteeeeerereereees 


SeTEST 46 WRITE CHECK DATA 


146: 


THE DATA FOR THIS TEST 1S WRITTEN ON DISK BY PREVIOUS TEST 
WRITE CHECK DATA CYLINDER 5, FORMAT 16 BITS PER WORDS 
TRACK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 258 

CONSISTING OF 

10 WORDS OF lege (6 BITS FOR CYL, 5 FOR TRACK, 5 FOR SECTOR) 
10 esd OF 777 

10 WORDS OF 0” 

10 WORDS OF 052525 

10 WORD OF 125252 

16 WORDS OF LEFT ROTATING ZERO (€6177776,177775) 

16 WORDS OF LEFT ROTATING ONE (EG 1,2,4.10) 

174 WORDS OF 377 

2 WORDS OF 12345 


FIRST THE ABOVE DATA 1S FILLED INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 


“Meee eterereeeeereeeeeeeeeeeeerereeAeeRAeReeteteeeeeatetetereee 


SCOPE 
MOV #STACK ,SP 
MOV #46 ,a#TSTNM 


JSR PC ,a#CLDISK 


RESET STACK 
;SAVE TEST NUMBER 


;SET R1I-RHCS1, R2-RHCS2 

7 R3-RHDS1, R4-RHERI 

:GIVE RH-11 INITIALIZE 

; SETUP UNIT NUMBER 

CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 

zAND THAT NO STATUS BITS ARE STUCK = 1 
CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON'T = 1 

HALT ; STOP 


7*GET HEADS TO CYLINDER 5 


JSR PC ,a#CHECKT 
TYPE -CPHALT 


JSR RO,Q#SEEKCY ;SEEK FOR 
5 sCYLINDER 5 


MOV OARP4VEC,ARPVEC iSET RPO4 VECTOR ADDRESS 
TO "TIME" IF P-CLOCK IS PRESEN 
“OR TO 'TIME2" IF P-CLOCK IS NOT "one SENT 
"TIME! WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO!IE, (SP) GET READY TO SET ‘GO" AND 
ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 360 WITH 
74 IN RHCS1 FOR SEEK 
WITH INTERRUPT ENABLED 


SEQ 0204 


K 16 
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CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZRJID.P11 28-MAR-79 09:03 146 WRITE CHECK DATA SEQ 0205 
9961 
9962 036176 10446135 WAT :WAIT FOR DRY BIT TO SET 
9963 036200 002322 RHDS1 sWAIT FOR RHDS1 REGISTER 
9964 036202 000200 DRY sWAIT FOR DRY BIT IN RHDS1 REGISTER 
9965 036204 004704 2500. sALLOW 25000 MICRO SECONDS 
9966 036206 004704 2500. sDRY MUST SET BETWEEN 
9967 :00 AND 50000 MICRO SECONDS 
9968 
9969 
9970 036210 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
9971 :R3-RHDS1, R4-RHER1 
9972 GIVE RH-11 INITIALIZE 
rere SETUP UNIT NUMBER 
a4 :#10 WORDS OF EACH 12344,17777,0,52525,125252 
9977 036214 004037 041374 JSR RO, a#CLAREA :CLEAR 10. WORDS, FROM WRFROM 
9978 036220 002470 WRF ROM sSTARTING FROM WRFROM 
9979 036222 000012 10. 210. WORDS 
9980 036224 012344 <5#2000>!<7#40>!4 SFILL WITH <5#2000>!<7#40>!4 
9982 036226 004037 041374 JSR RO, @#CLAREA :CLEAR 10. WORDS, FROM WRFROM+<10.*2> 
9983 036232 002514 WRFROM+<10.#2> = STARTING FROM WREROM*+<10. *#2> 
9984 036234 000012 10. 210. WORDS 
9985 036236 177777 -1 SFILL WITH <1 
9987 036240 004037 041374 JSR RO, @#CLAREA CLEAR 10. WORDS, FROM WRFROM+<20.*2> 
9988 036244 002540 WRF ROM+<20. #2> :STARTING FROM WRFEROM+<20.*2> 
9989 036246 000012 10. 210. WORDS 
3990 036250 000000 0 sFILL WITH 0 
9992 036252 004037 041374 JSR RO, @MCLAREA CLEAR 10. WORDS, FROM WRFROM+<30.*2> 
9993 036256 002564 UR Rom <30: *2> sSTARTING FROM WRFROM+<30. *2> 
9994 036260 000012 210. WORDS 
4.4 036262 052525 59525 SFILL WITH 52525 
9997 036264 004037 041374 JSR RO, @#CLAREA :CLEAR 10. WORDS . FROM WRFROM+<40.*2> 
9998 036270 002610 WRF ROM+<40, #2> > STARTING FROM WRFROM*+<40, #2> 
9999 036272 000012 10. 210. WORDS 
10000 036274 125252 125252 sFILL WITH 125252 
10001 
10002 
10005 s*FILL LEFT ROTATING ZEROS FROM WRFROM+<50.*2> 
10004 
10005 036276 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
10006 036300 012700 177776 MOV #177776,R0 :DATA 
10007 036304 012705 000020 MOV #16. ,R5 : COUNT 
10008 036310 012701 002634 MOV #WREROM+<50.*2>,R1 ;WHERE DATA GOES 
10009 036314 000261 SEC 
10010 036316 010021 1$: MOV RO,(R1)¢ :STORE DATA 
10011 036320 006100 ROL RO :GET ZERO ONE BIT LEFT 
10012 036322 005305 DEC R5 :COUNT 16 
10013 036324 001374 BNE 1$ “BRANCH IF 16 NOT DONE 
10014 
10015 StF ILL LEFT ROTATING ONE INTO WRFROM+<65,*2> 
10016 


CZRJ1D0, RPOG/5/6 FCTNL 
CZRJID.P11 


036342 


036344 


036354 
036356 


036402 


036404 
036406 


036410 


036412 
036416 
036420 


036422 


036424 
0364350 
036434 
036436 
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012601 


004037 


000377 
004037 


012345 


004037 
soar * 


002470 


000000 
014000 


002436 


004037 
002272 
004612 


000022 


004737 
104401 
000000 
013777 


CTLRI 
09:03 


000001 


041374 


041374 


043476 


041672 


041604 
067033 


004606 
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143622 


2s: 


-BYTE 
-BYTE 


L 16 
25-MAY-79 + H 30 PAGE 207 
WRITE CHECK DATA 


CLC 

MOV #1,R0 
MOV RO, (R1)+ 
ASL RO 

BCC 


2$ 
MOV (SP)+,R1 
;*FILL REST OF DATA 


;;POP STACK INTO R1 


JSR RO,@ACLAREA sCLEAR 174. ant ae FROM WRF ROM+<82.*2> 
WRF ROM+<82.*2> STARTING FROM WREROM*+<82.*2> 
174. 3174. WORDS 

377 ZFILL WITH 377 

JSR RO,@#CLAREA CLEAR 2 WORDS, FROM WRFROM+<256.*2> 
URFROM+<256. *2> yom TING FROM WREROM*<256. #2> 


2 32 WORD 
<5#2000>!<7#40>!5 


*FILL THE WRITE CHECK HEADER AND DATA 


JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
5 sCYLINDER 5 

4 sSECTOR 4 

7 s TRACK 7 

-256. sWORD COUNT = 256. 

WRF ROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 
0 ;D00 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 316 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 
WRCHEK ;GE1 READY TO DO A WRCHEK 

WRITE CHECK DATA WITH 50 IN RHCS1 


> *SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 


JSR RO, @#SAVER SAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRESS OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 


;AND THAT NO STATUS BITS ARE STUCK = 1 
; CANNOT CONTINUE TESTING IF ANY OF 
THE FIRST SET OF BITS DON'T = 1 

HALT 3 STOP 


MOV Q#RPGVEC ,ARPVEC :SET RPO4 VECTOR ADDRESS 
TO "TIME1’ IF P-CLOCK IS PRESEN 
SOR TO 'TIME2* IF P-CLOCK 1S NOT " PRESENT 
:*TIME' WILL ONLY SAVE 


TYPE ,CPHALT 


sFILL WITH <5*#2000>!<7#40>!5 


SEQ 0206 


CZRJ100, 


RPO04/ 


CZRJID.P11 


102 


ek a et et et ot ot ot 
lelelelelelelelejoloelejelelelejlojlejloelejejejloejejejojqjo) 


ee ee ee ee et et ot ot 
tet etatt) = e — eeeeneetore 


DWN WFWN—OOOnG us WO OOn 


036444 
036450 


036454 


036460 
036462 
036464 


036474 


036476 


036554 
036556 


036556 


036604 


5/6 FCTNL 
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013746 
052716 


012677 


001502 


013746 


022600 
001405 
104021 
012746 
011637 
022605 
001405 


104063 


004037 


003405 


L 


CTLRI 
09:03 


002436 
000101 


143620 


002436 
004101 
001124 


001126 
004600 


010500 
001124 


001126 
004600 


041426 
041426 


041426 
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67$: 


69$: 


A 16 
25-MAY-79 10:30 PAGE 208 


WRITE CHECK DATA 


MOV @#WRCHEK ,-‘SP) 
BIS #GO'1E, (SP) 


MOV (SP)*,@RHCS! 


MOV aR1,RO 
MOV @R3,R5 


;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 


;GET READY TO SET *GO* AND 
; ENABLE INTERRUPT 


;GO WITH 
350 IN RHCS1 FOR WRITE CHECK DATA 
;W1ITH INTERRUPT ENABLED 


;SAVE RHCS1 DURING ABOVE OPERATION 
;SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR ROY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 


;ALLOW 9860 Fest SECONDS 
;RDY MUST SET BETWEEN 
31520 AND 18200. MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 By Arcee ALREADY SAVED IN 


:*RO AND RS IMMEDIATELY 


MOV O#WRCHEK ,-(SP) 
BIS WIE!DVA!GO, (SP) 


MOV (SP) ,@#SGDDAT 
CMP (SP)+,RO 
BEQ 


67$ 
MOV RO, a#$BDDAT 
MOV R1,Q#REGADR 


AFTER 


; SAVE COMMAND 

; INCLUDE IE!DVA!GO 

SAVE FOR PRINTOUT 

;DURING ABOVE OPERATION ONLY IE!DVA!GO 
;AND COMMAND SHOULD BE SET 


;BRANCH IF GOOD 

BAD DATA 

; FAILING REGISTER RHCS1 
;DURING ABOVE OPERATION ONLY 


:COMMAND AND IE!DVA!GO SHOULD BE SET 


;SAVE BITS SET DURING OPERATION IN RHDS1 


SAVE FOR PRINTOUT 
;DURING ABOVE OPERATION ONLY MOL!DPR' Vv 
; SHOULD BE SET 


ERROR 21 

MOV #MOL ! DPR! VV,-(SP) 
MOV (SP) ,a#$GDDAT 

CMP (SP)+,R5 

BEQ 


69% 
MOV R5,a#$BDDAT 
MOV R3,Q#REGADR 
ERROR 63 


;BRANCH IF GOOD 

:BAD DATA 

sFAILING REGISTER RHDS1 
;DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV SHOULD BE SET 


s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#FILLRE 
— 


teh RO, @#F ILLRE 


RHB 
WRF ROM+<256.*2> 
JSR RO,a#F ILLRE 


MOV 0 INTO SAVED RHWC 
tetry REGISTER TO CHANGE 


:MOV WRFROM+<256.*2> INTO SAVED RHBA 
SAVED REGISTER TO CHANGE 


-DATA 
:MOv 3405 INTO SAVED RHDST 


fot REGISTER TO CHANGE 


SEQ 0207 





B 1 
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46 


CZR5S1D.P11 2B-MAR-79 09:03 WRITE CHECK DATA SEQ 0208 
10129 
10130 > *COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
10131 :*W1lTH REGISTER AFTER COMMAND 
10132 
10133 
19134 036606 006037 042512 JSR RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
10135 PRESENT VALUE 
10136 036612 004612 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
10137 036614 002354 wC 7 TEST DATA STARTING FROM ‘RHWC' 
10138 036616 000022 18. 718. REGISTERS TO BE COMPARED 
10139 036620 036624 8% ;RETURN TO 8$ ON ERROR 
10140 036622 036630 9$ ;RETURN TO 9$ ON NO ERROR 
10141 036624 104040 88: ERROR 40 WRITE CHECK CAUSED 
10142 036626 000207 RTS PC ;AN IMPROPER REGISTER 
10143 ; CHANGE 
10144 ;GOOD DATA GIVES WHAT 
10145 ; SHOULD BE THERE 
10146 RECEIVED DATA GIVES WHAT 
tee | ;WAS THERE AFTER COMMANDS 
1014 


10149 036630 9$: 





ris é RPO4/5/6 FCTNL CTLRI 


CZRJID 


Pll 


036630 
036632 
036636 


036644 


036650 
036654 
036656 
036662 
036662 


036666 
036672 
036674 


036700 
036702 


036706 


036706 
036712 


036714 
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000004 
012706 
012737 


004737 


005737 
001402 
000137 
004737 
104401 
000000 
005737 


001402 
000137 


004037 
000005 


013777 


09:03 


001000 
000047 


041524 


004750 
037376 
041604 
067033 


004732 


037376 


041474 


004606 
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004604 


143344 
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WRITE CHECK DATA 


a. 
10:30 PAGE 210 


a4 rereererrerererreerereerererererereeeekeeereeeeeeeneeeeereteeee 


;*TEST 47 


me. SeeCeeeseeseaneeseses 


es Be Be Be Be Be Be Be He Be Be Be He Be Be He oe 


147: 


30$: 


11$: 


TRACK 7, 


1 
10 WORD 
1 
1 
1 
2 WORDS 


WRITE CHECK DATA USING UNIBUS B 

THIS TEST USES UNIBUS B IF CONNECTED TO THE RH 

1f UNIBUS B 1S NOT CONNECTED THEN THIS TEST IS NOT PERFORMED 
THE DATA FOR THIS TEST 1S WRITTEN ON DISK BY PREVIOUS TEST 
WRITE CHECK DATA CYLINDER 5, FORMAT 16 BITS PER WORDS 

SECTOR 4, KEYS 0, NUMBER OF WORDS 258 

CONSISTING OF 
10 WORDS GF fee (6 BITS FOR CYL, 5 FOR TRACK, 5 FOR SECTOR) 
10 WORDS OF 177777 

10 WORDS OF 0 


Q WORDS OF 052525 


OF 125252 


OF 12345 


WORDS OF LEFT ROTATING ONE (EG 1,2, 4,10) 


0 
WORDS OF LEFT ROTATING ZERO ee te 177775) 
74 WORDS OF 377 


FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 


SCOPE 


> * CHECK 


#STACK,SP 
#47, Q8TSTNM 


PC, ,a#CLDISK 


aaRH70 
30$ 
TS150—Oo gv 


PC ,a#CHECKT 
»CPHALT 


a#UBUSB 
11$ 
anos 


7*GET HEADS TO CYLINDER 


JSR 
5 


MOV 


RO, a#SEEKCY 


O#RP4VEC ,ARPVEC 


*@eeaeeererereererereeereeeereerereeereekareneeeeeeeeeeteeeeeeene 


RESET STACK 
SAVE TEST NUMBER 


sSET R1-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBE’. 


TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70 


TEST FOR RH70 CONTROLLER 
c1F FLAG = 1, THIS TEST IS SKIPPED 


J 


UMP TO NEXT TEST -------------------- ) 


:1F FLAG = 1, DO THIS TEST 

:CHECK DVA,RDY,MOL,DPR,DRY,VV = i 

;AND THAT NO STATUS BITS ARE STUCK = 1 
>CANNOT CONTINUE TESTING IF ANY OF 


SAA au SET OF BITS DON'T = 1 


1S UNIBUS B THERE 
;UNIBUS B THERE SO CONTINUE 
;NO UNIBUS B, GO TO NEXT TEST 


5 


;SEEK FOR 
s CYLINDER 5 


;SET RPO4 VECTOR ADDRESS 


SEQ 0209 


~~ 
a 


J10.P 


et st ls es 
OooooCoCooOoOo 
MRRP rerrnrr 


036722 
036726 


036732 


036736 
036740 
036742 
036744 
036746 


036750 


036754 


036776 
037000 


037010 
037012 


037022 


037024 
037030 
037032 
037034 


28-MAR-79 


013746 
052716 


012677 


104413 
002322 
000200 
004704 
004704 


004737 


004037 


012344 
004037 


177777 
004037 


000000 
004037 


052525 
004037 


125252 


RJ100, Oh aead - i CTLRI 


09:03 


002452 
000101 


143342 


041524 


041374 


041374 


041374 


041374 


041374 
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dD 1 
25-MAY-79 10:30 PAGE 211 
WRITE CHECK DATA USING UNIBUS B 


:TO ‘TIME1’ IF P-CLOCK IS PRESENT 

OR TO "TIME2’ IF P-CLOCK IS NOT PRESENT 
;'TIME’ WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


MOV @#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!1E,(SP) ;GET READY TO SET ‘GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 :60 WITH 


4 IN RHCS1 FOR SEEK 
WITH INTERRUPT ENABLED 


WAT WAIT FOR DRY BIT TO SET 


RHDS1 ;WAIT FOR RHDS1 REGISTER 

DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
2500. ;ALLOW 25000 MICRO SECONDS 

2500. ;DRY MUST SET BETWEE 


N 
300 AND 50000 MICRO SECONDS 


JSR PC, ,aa#CLDISK 3SET R1-RHCS1, R2-RHCS2 
7 R3-RHDS1, R4-RHERI 
;GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


3*10 WORDS OF EACH 12344,17777,0,52525,125252 


JSR RO,a#CLAREA sCLEAR 10. WORDS, FROM WRFROM 
WRF ROM ;STARTING FROM WRFROM 
10. 310. WORDS 
<5#2000>!<7#40>'4 sFILL WITH <5*2000>!<7#40>!4 
JSR RO, @#CLAREA :CLEAR 10. WORDS, FROM WRFROM+<10.*2> 
URFROM*<10. *2> :STARTING FROM WRFROM+<10.*2> 
10. 710. WORDS 
-1 sFILL WITH =-1 
JSR RO, @#CLAREA :CLEAR 10. WORDS, FROM WRFROM+<20.*2> 
WRF ROM+<20.#2> sSTA RTING FROM WRFROM+<20.*2> 
10. 710. WORDS 
0 sFILL WITH 0 
JSR RO, @#CLAREA sCLEAR 10. preg FROM WRFROM+<30.*2> 
UR Rom 30; *2> rr = ae TING FROM WRFROM+<30,*#2> 
310. Ww 
$9525 sFILL WITH 52525 
JSR RO,@#CLAREA sCLEAR 10. WORDS, FROM WRFROM+<40,#2> 
hence St “on By ge RTING FROM WRFROM+<40,*#2> 
125252 1) ot WITH 125252 


SEQ 0210 


— 1 
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CZRJID.P11 28-MAR-79 09:03 147 WRITE CHECK DATA USING UNIBUS B SEQ 0211 
iases *FILL LEFT ROTATING ZEROS FROM WRFROM+<50.*2> 

10266 037036 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 

10267 037040 012700 177776 MOV #177776,R0 BATA 

10268 037044 012705 000020 MOV #16.,R5 ; COU 

10269 037050 012701 002634 MOV #WREROM+<50.#2>,R1 VUNERE DATA GOES 

10270 037054 000261 SEC 

10271 037056 010021 1$: MOV RO.(R1)¢ STORE DATA 

10272 037060 006100 ROL RO :GET ZERO ONE BIT LEFT 

10273 037062 005305 DEC R5 :COUNT 16 

ears 037064 001374 BNE 1$ sBRANCH IF 16 NOT DONE 

534 s*FILL LEFT ROTATING ONE INTO WRFROM+<65.*2> 

10278 037066 000241 CLC 

10279 037070 012700 000001 MOV #1,RO 

10280 037074 010021 28: MOV RO,(R1)¢ 

10281 037076 006300 ASL RO 

10282 037100 103375 BCC 2$ 

oe83 02/102 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

4 

10285 s*FILL REST OF DATA 

10286 037104 004037 041374 JSR RO, @#CLAREA CLEAR 174. WORDS, FROM WRFROM+<82.*2> 
10287 037110 002734 URFROM*<B2. *2> STARTING FROM WREROM+<82. *2> 
10288 037112 000256 174. 2174. WORDS 

+3344 037114 000377 377. sFILL WITH 377 

10291 037116 004037 041374 JSR RO, a#CLAREA CLEAR 2 WORDS, FROM WRFROM+<256. #2> 
10292 037122 003470 WRF ROM+<256. #2> STARTING FROM WRFROM+<256. *2> 
10293 037124 000002 2 72 WORDS 

oes 037126 012345 <5#2000>!<7#40>!5 SFILL WITH <5*2000>!<7#40>!5 
1 

10296 

loses :*FILL THE WRITE CHECK HEADER AND DATA 

10299 037130 004037 043476 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 

10300 037134 000005 5 CYLINDER 5 

10301 037136 004 BYTE 4 SECTOR 4 

10302 037137 007 BYTE 7 sTRACK 7 

10303 037140 177400 -256. WORD COUNT = 256. 

10304 037142 002470 WRF ROM :BUS ADDRESS 

10305 STARTING ADDRESS OF DATA 

10306 :BUFFER = WRFROM 

10307 037144 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
10308 037146 014900 ECI!FMT22 216 BITS PER WORD FORMAT 
10309 s INHIBIT ECC CORRECTION 

10310 =DO NOT INHIBIT HEADER COMPARE 

10311 037150 002436 WRCHEK :GET READY TO DO A WRCHEK 

10312 sWRITE CHECK DATA WITH 50 IN RHCS1 

10313 

10314 

10315 

10316 037152 052777 002000 143120 BIS #PSEL ,@RHCS1 :SET PORT B 

10317 : THAT IS UNIBUS B 

10318 

10319 r*SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 


7 
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CZRJID.P11 28-MAR-79 09:03 147 WRITE CHECK DATA USING UNIBUS B SEQ 0212 
10320 037160 004037 041672 JSR RO, a#SAVER SAVE REGISTERS 
10321 037164 002272 RHWC sRHWC IS THE FIRST REGISTER SAVED 
10322 037166 004612 SAVERE STARTING ADDRESS OF WHERE 
10323 : THE REGISTERS ARE SAVED 
10324 037170 000022 18. “NUMBER OF REGISTERS 
sees SAVED = 18. 
10327 037172 004737 041604 JSR PC ,a#CHECKT CHECK DVA,RDY,MOL,DPR,DRY,VV = 1 
10328 AND THAT NO STATUS BITS ARE STUCK = 1 
10329 037176 104401 067033 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF ANY OF 
10330 : THE FIRST SET OF BITS DON'T = 1 
att 037202 000000 HALT : STOP 
10333 037204 013777 004606 143054 MOV O#RP4VEC, ARPVEC :SET RPO4 VECTOR ADDRESS 
10334 TO 'TIME1* IF P=CLOCK IS PRESEN 
10335 “OR TO 'TIME2* IF P=CLOCK IS NOT "PRESENT 
10336 :"TIME' WILL ONLY SAVE 
10337 ;CURRENT CYLINDER ADDRESS 
10338 AND LOOK AHEAD REGISTERS 
10339 
cetet :*SET PORT SELECT 
10342 037212 013746 002436 MOV A#WRCHEK,-(SP) :GET READY TO MOVE COMMAND 
10343 037216 052716 002101 BIS #GO'IE!PSEL, (SP) :GET READY TO SET ‘GO' AND 
10344 ENABLE INTERRUPT 
10345 037222 012677 143052 MOV (SP)+,@RHCS1 :G0 WITH 
10346 :50 IN RHCS1 FOR WRITE CHECK DATA 
10347 WITH INTERRUPT ENABLED 
10348 037226 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
eee 037230 011305 MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
10351 
10352 037232 104413 WAT WAIT FOR RDY BIT TO SET 
10353 037234 002300 RHCS1 WAIT FOR RHCS1 REGISTER 
10354 037236 000200 RDY :WAIT FOR RDY BIT IN RHCS1 REGISTER 
10355 037240 001732 986. ALLOW 9860 MICRO SECONDS 
10356 037242 001502 834. sRDY MUST SET BETWEEN 
10332 :1520 AND 18200 MICRO SECONDS 
1 
10359 :*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 

10360 :*RO AND RS IMMEDIATELY AFTER GO 
10361 
10362 037244 013746 002436 MOV Q#WRCHEK,-(SP) ;SAVE COMMAND 
10363 037250 052716 006101 BIS #IE'DVA'PSEL!GO, (SP) INCLUDE IE!DVA!PSEL!GO 
10364 037254 011637 001124 MOV (SP),a#$GDDAT  ;SAVE FOR PRINTOUT 
10365 037260 022600 CMP (SP)+,RO :DURING ABOVE OPERATION ONLY IE!DVA!PSEL!GO 
10366 :AND COMMAND SHOULD BE SET 
10367 037262 001405 BEQ 67$ :BRANCH IF GOOD 
10368 037264 010037 001126 MOV RO, a#$BDDAT :BAD DATA 
10369 037270 010137 004600 MOV R1,a#REGADR FAILING REGISTER RHCS1 
10370 037274 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY 
10371 :COMMAND AND IE!DVA!PSEL!GO SHOULD BE SET 
0372 037276 012746 010500 67$: MOV #MOL!DPRivV,-(SP) 7 SAVE Bis SET DURING OPERATION IN RHDS1 

373 037302 011637 001124 MOV (SP), a#$GDDAT  ;SAVE FOR PRINTOUT 


0 
0374 037306 022605 CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR'VV 
0375 ;SHOULD BE SET 
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10376 037310 001405 BEQ 69% cong My GOOD 
10377 037312 010537 001126 MOV R5,a#S$BDDAT [BAD DAT 
10378 037316 010337 004600 MOV R3,a#REGADR FAILING. REGISTER RHDS1 
10379 037322 104063 ERROR 63 = DURING ABOVE OPERATION ONLY 
10380 =MOL!DPR! VV SHOULD BE SET 
10381 037324 69$: 
10382 
satee s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
10385 037324 004037 041426 JSR RO, a#F ILLRE sMCV 0 INTO SAVED RHWC 
10386 037330 002272 RHWC :SAVED REGISTER TO CHANGE 
10387 037332 000000 0 DATA 
10388 037334 004037 041426 JSR RO, aMF ILLRE 7MOV WRFEROM+<256.*2> INTO SAVED RHBA 
10389 037340 002274 RHBA 3; SAVED = TO CHANGE 
10390 037342 003470 WRF ROM+<256. #2> :DA 
10391 037344 004037 041476 JSR RO, af ILLRE MOV 3405 INTO SAVED RHDST 
10392 037350 002304 RHDST sSAVED REGISTER TO CHANGE 
aeee 037352 003405 3405 DATA 
10395 s*COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
Yt 44 stW1TH REGISTER AFTER COMMAND 
10398 037354 004037 042512 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
10399 . :PRESENT VALUE 
10400 037360 004612 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
10401 037362 002354 we :TEST DATA STARTING FROM ‘RHWC* 
10402 037364 000022 18. :18. REGISTERS TO BE COMPARED 
10403 037366 037372 8$ ;RETURN TO 8$ ON ERROR 
eee 037370 037376 9$ sRETURN TO 9$ ON NO ERROR 
104 
10406 037372 104076 8$: ERROR 76 ;WHILE USING UNIBUS B 
10407 sWRITE CHECK CAUSED 
10408 037374 000207 RTS PC ;AN IMPROPER REGISTER 
10409 ; CHANGE 
10410 ;GOOD DATA GIVES WHAT 
10411 ;SHOULD BE THERE 
10412 sRECEIVED DATA GIVES WHAT 
10413 sWAS THERE AFTER COMMANDS 
10414 
10415 037376 9$: 
10416 
10417 
10418 
10419 
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10421 | 
10422 ppeteeeereeerereterereeeerererreterertereeeneeteeeeeeeeeteee eee ee 
10423 #TEST 50 WRITE PROTECT OPERATION 


+ 642 :* IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 
** 
10426 i* IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
10427 it THEN THIS TEST IS NOT PERFORMED 
10428 it 
10429 :t If NO ACT-11 MONITOR IS PRESENT 
10430 it THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
og 2 :f ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 
22 
10433 it WRITE FROM BUFFER IS FILLED WITH ALL ONES AND 
10434 i* SECTOR 0, TRACK 0, CYLINDER O IS FILLED WITH 
10435 i* ALL ONES . 
10436 i# ALL REGISTERS “ARE SAVED THEN WRITE LOCK BUTTON IS 
10437 ;* PRESSED AND ALL REGISTERS ARE CHECKED. 
10438 :* WRITE FROM BUFFER IS FILLED WITH 377 AND A WRiic iS 
10439 it ATTEMPTED TO SECTOR 0, TRACK 0, CYLINDER 0 70. WORDS 
10440 i* ALL REGISTERS ARE CHECKED 
10441 ;* THE SAME SECTOR IS READ AND DATA COMPARED TO SEE 
10442 :* THAT NOTHING GOT DESTROYED (READ DATA SHOULD BE ALL 
10443 :# ONES AND NOT 377) 
10444 it THEN WRITE LOCK BUTTON IS PRESSED TO UNLOCK 
10445 :# WRITE LOCKS AND ALL REGISTERS ARE COMPARED 
10448 037376 000004 SCOPE 
10449 
10450 
at ;*THIS CODE CHECKS TO SEE If MANUAL INTERVENTION TESTS ARE OK 
104 | 
10453 037400 005737 004724 TST @#NOPUSH :1S THIS A 220 START ? 
10454 037404 001007 BNE 1$ ;SKIP THIS TEST IF SO 
10455 037406 005737 000042 TST a#42 ;MONITOR (ACT 11) RETURN ADDRESS ? 
10456 037412 001004 BNE 1$ ;SKIP THIS TEST 
10457 037414 005737 001100 TST aNSPASS ;FIRST PASS ? 
10458 037420 001001 BNE 1$ ;SKIP THIS TEST IF NOT 
10058 037422 000402 BR 2$ ;CONTINUE WITH THIS TEST 
1046 
10461 037424 1$: 


10462 037424 000137 040622 JMP S151; JUMP TO NENT TEST eeneccceeseceess ) 
10463 037430 2$: 

10464 037430 012706 001000 MOV #STACK,SP ;RESET STACK 

10465 037434 012737 000050 004604 MOV #50, a#TSTNM ;SAVE TEST NUMBER 


10467 037442 004737 041524 JSR - PC, ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
10468 jR3-RHDS1, R4-RHER1 
10469 GIVE RH-11 INITIALIZE 
10470 ;SETUP UNIT NUMBER 


10472 s*FILL SECTOR 0, TRACK O, CYL O WITH ONES 
10473 stFILL WRITE FROM BUFFER 

037446 104037 041374 JSR RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM 
10475 037452 002470 WRFROM > STARTING FROM WRFROM 

03 


10446 | 
10447 PPA eeteeeeeeeetereeeeeerettteeeeettereeeNTATA KAKA ee KATATE 
TST50: 
7454 000400 256. 3256. WORDS 
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J10.P 
10477 
8 


037456 


037460 


037472 


037474 
037476 


037500 


037502 
037506 
037512 
037514 


037522 
037526 


037532 


037536 
037540 
037542 
037544 
037546 


177777 


004037 
000000 
000 
000 
177400 
002470 


000000 
010000 


002442 
004737 
104401 


000000 
013777 


013746 
052716 


012677 


104413 


004704 


004037 
002272 


043476 


041604 
067033 


004606 


002442 
000101 


142542 


041672 
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WRITE PROTECT OPERATION 


=| 


sFILL WITH -1 


*FILL WRITE DATA COMMAND 


0 
FMT22 


WRIDAT 


JSR 
TYPE 
HALT 
MOV 


MOV 
BIS 


MOV 


RO,@#RUN + SETUP be iy: FOR DATA COMMAND 


:WORD COUNT = 256. 
;BUS ADDRESS 
STARTING ADDRESS OF DATA 
:BUFFER = WRFROM 
;D0 NOT INHIBIT BUS ne INCREMENT 
:16 BITS PER WORD FORM 
:00 NOT INHIBIT ECC CORRECTION 
;D0 NOT INHIBIT HEADER COMPARE 
;GET READY TO DO A WRIDAT 
WRITE DATA WITH 60 IN RHCS1 


PC ,@#CHECKT CHECK DVA,RDY,MOL,DPR,DRY.VV = 1 
;AND THAT NO STATUS BITS ARE STUCK = 1 
,CPHALT ;CANNOT CONTINUE TESTING IF ANY OF 


bey! FIRST SET OF BITS DON'T = 1 


O#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
;TO 'TIME1' IF P=CLOCK IS PRESENT 
:OR TO 'TIME2* IF P-CLOCK IS NOT PRESENT 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


@#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
#GO! IE, (SP) ;GET READY TO SET ‘GO" AND 
;ENABLE INTERRUPT 
(SP)+,@RHCS1 ;GO WITH 
760 IN RHCS1 FOR WRITE DATA 
sWITH INTERRUPT ENABLED 


s*TIME 1S NOT CRITICAL 


;WAIT FOR RDY BIT TO SET 

;WALT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 25000 MICRO SECONDS 

;RDY MUST SET BETWEEN 

7:00 AND 50000 MICRO SECONDS 


s*SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT 
:*BUTTON HAS BEEN HIT 


JSR 
RHwWC 


RO, @#SAVER SAVE REGISTERS 
pRHWC 1S THE FIRST REGISTER SAVED 


SEQ 0215 
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10533 037556 004612 SAVERE sSTARTING ADDRESS OF WHERE 
10534 sTHE REGISTERS ARE SAVED 
10535 037560 000022 18. sNUMBER OF REGISTERS 
HE ;SAVED = 18. 
10538 037562 104401 037570 TYPE , 68% 7s TYPE ASCIZ STRING 
10539 037566 000407 BR é7$ :GET OVER THE ASCIZ 
10540 3;68%$: .ASCIZ <15><12>/0N DRIVE / 
10541 037606 67$: 
10542 037606 013746 004716 MOV a#UNIT,-(SP) 3GET UNIT UNDER TEST 
10543 037612 104405 TYPDS 
10544 037614 104401 037622 TYPE , 70% 77 TYPE ASCIZ STRING 
10545 037620 000442 BR 69% GET OVER THE ASCIZ 
10546 :;70$: .ASCIZ <15><12>/PUSH WRITE PROTECT BUTTON TO LOCK OUT WRITES THEN HIT CONTINUE/ 
10547 037726 69$: 
10548 037726 000000 HALT 
10549 Se ONLY REGISTER THAT SHOULD CHANGE IS RHDS1 - BIT #11 
it “a 
10552 037730 004037 942404 JSR RO, a#CHREG : CHANGE BITS IN SAVED REGISTER 
oear 037734 002322 RHDS1 : CHANGE RHDS1 REGISTER 
10555 037736 000001 1 :1 BIT/BITS TO BE CHANGED 
10556 037740 000001 1 sNEW VALUE OF WRL IS 1 
eran 037742 004000 WRL ;CHANGE WRL BIT 
10559 >*COMPARE ALL REGISTERS BEFORE WRITE WAS LOCKED 
inied >tOUT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT 
10562 037744 004037 042512 JSR RO,a#COMREG s;COMPARE SAVED REGISTERS WITH 
10563 sPRESENT VALUE 
10564 037759 004612 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
10565 037752 002354 wC :TEST DATA STARTING FROM ‘RHWC' 
10566 037754 000022 18. 718. REGISTERS TO BE COMPARED 
10567 037756 037762 3$ ;RETURN TO 3$ ON ERROR 
Ege 037760 037766 4% sRETURN TO 4$ ON NO ERROR 

6 
10570 037762 104041 3$: ERROR 41 ;LOCKING OUT WRITE BY 
10571 037764 000207 RTS PC sWRITE LOCK BUTTON CAUSED 
10572 s IMPROPER REGISTER CHANGE 
10573 : 6000 DATA GIVES WHAT SHOULD 
10574 7BE THERE 
10575 sRECEIVED DATA GIVES WHAT 
10576 ;WAS THERE AFTER WRITE 
+ 4444 WAS LOCKED OUT BY BUTTON 
1 
10579 s*NOW A WRITE WILL BE ATTEMPTED WITH WRITE LOCKED 
10580 :*0UT BY BUTTON 
+424 s*FILL WRITE FROM BUFFER WITH 377 
10 
ths 037766 013737 037766 001110 4$: MOV a#4$,a#SLPERR :SCOPE LOOP STARTS FROM HERE 
10584 
10585 
10586 037774 004737 041524 JSR PC, a#CLDISK ;SET RI-RHCS1, R2-RHCS2 
10587 sR3-RHDS1, R4-RHERI 
10588 sGIVE RH-11 INITIALIZE 
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10589 sSETUP UNIT NUMBER 

10590 040000 004037 041374 JSR RO,@#CLAREA sCLEAR 256. WORDS, FROM WRFROM 

10591 040004 002470 WRFROM s;STARTING FROM wRF ROM 

10592 040006 000400 256. 256. WORDS 

10593 040010 000377 377 FILL WITH 377 

10594 

10595 

ioaee s*TRY A ONE WORD WRITE 

10598 040012 004037 043476 JSR RO, @#RUN :SETUP TO RUN FOR DATA COMMAND 

10599 040016 000000 0 > CYLINDER 0 

10600 0640020 000 BYTE 0 ‘SECTOR 0 

10601 040021 000 -BYTE 0 s TRACK 0 

10602 040022 177777 -1. = WORD COUNT = 1. 

10603 040024 002470 WRFROM ;BUS ADDRESS 

10604 > STARTING ADDRESS OF DATA 

10605 ;BUFFER = WRFROM 

10606 040026 000000 0 700 NOT INHIBIT BUS ig INCREMENT 

10607 040030 010000 FMT22 316 BITS PER WORD FORM 

10608 :D0 NOT INHIBIT ECC CORRECTION 

10609 ;D0 NOT INHIBIT HEADER COMPARE 

10610 040032 002442 WRIDAT ;GET READY TO DO A WRIDAT 

10611 sWRITE DATA WITH 60 IN RHCS1 

10612 

10613 

10614 ;*SAVE REGISTERS 

10615 040034 004037 041672 JSR RO, a#SAVER ;SAVE REGISTERS 

10616 040040 002272 RHWC sRHWC IS THE FIRST REGISTER SAVED 

10617 040042 004612 SAVERE sSTARTING ADDRESS OF WHERE 

10618 ; THE REGISTERS ARE SAVED 

10619 040044 000022 18. s;NUMBER OF REGISTERS 

oer ;SAVED = 18. 

6 

10622 040046 013777 004606 142212 MOV OF#RP4VEC,ARPVEC 44 RPO4 VECTOR ADDRESS 

10623 O 'TIME1' IF P-CLOCK IS PRESENT 
' 10624 4 TO 'TIME2' IF P=CLOCK IS NOT PRESENT 

10625 =" TIME® WILL ONLY SAVE 

10626 ;CURRENT CYLINDER ADDRESS 

10627 ;AND LOOK AHEAD REGISTERS 

10628 

10629 

10630 040054 013746 002442 MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 

10631 040060 052716 000101 BIS #GO'1E, (SP) :GET READY TO SET ‘GO* AND 

10632 sENABLE INTERRUPT 

10633 040064 012677 142210 MCV (SP)+,@RHCS1 360 WITH 

10634 760 IN RHCS1 FOR WRITE DATA 

10635 sWITH INTERRUPT ENABLED 

Hoes st*TIME 1S NOT CRITICAL 

106 

10638 040070 104413 WAT sWAIT FOR RDY BIT TO SET 

10639 040072 002300 RHCS1 sWAILT FOR RHCS1 REGISTER 

10640 040074 000200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 

10641 040076 004704 2500. sALLOW 25000 MICRO SECONDS 

10642 040100 004704 2500. sRDY MUST SET BETW 


WEEN 
10643 :00 AND 50000 MICRO SECONDS 
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040102 


040134 


040140 
040144 


040146 


040166 


040170 
040174 


040176 
040200 
040202 


040204 
040210 
040212 
040214 
040216 
040220 
040222 


040224 


040232 
040236 


040246 


040250 
040252 
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052637 


004037 
002300 


000002 


000001 


004037 
002302 


000001 
000001 
004000 


004037 
002322 
000002 
000001 
100000 
000001 
040000 


053737 


004037 
004612 


040254 


104042 
000207 


CTLRI 
703 


004616 
042404 


041426 


042404 


042404 


004740 


042512 
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004612 
004614 


004616 


004636 
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WRITE PROTECT OPERATION 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


MOV @RHWC ,QMSAVERE ;RHWC 1S UNPREDICTABLE 
MOV @RHBA ,A#SAVERE+2;RHBA !S UNPREDICTABLE 
MOV @RHCS2,-(SP) ;GET RHCS2 

BIC #*CCIRIORD>, (SP) ;KEEP 1R AND OR 

BIC WIR‘OR ,Q#SAVERE+4; CLEAR SAVED IR OR 


BIS (SP)+,@#SAVERE*+4;SET OR IR AS REQUIRED 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 

2 :2 BIT/BJTS TO BE CHANGED 

1 ;NEW VALUE OF SC IS 1 

sc ;CHANGE SC BIT 

1 sNEW VALUE OF TRE IS 1 

TRE ; CHANGE TRE BIT 

JSR RO,a#FILLRE sMOV 1 INTO SAVED RHDST 

oe :SAVED REGISTER TO CHANGE 

JSR RO,a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHER1 ; CHANGE RHER1 REGISTER 

1 31 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF WLE IS 1 

WLE ;CHANGE WLE BIT 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ; CHANGE RHDS1 REGISTER 

2 32 BIT/BITS TO BE ous 

1 sNEW VALUE OF ATA IS 

ATA ;CHANGE ATA BIT 

1 = NEW VALUE OF ERR IS 1 

ERR ; CHANGE ERR BIT 

BIS O#ATTENT a#SAVERE+24 sSET APPROPRIATE ‘ATA’ BITS 


;FOR WORKING DRIVE IN 
;SAVED RHAS LOACTION 


> *COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED 
stW1TH REGISTERS AFTER ATTEMPT 


JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 


PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE* 

wC TEST DATA STARTING FROM ‘'RHWC* 
18. :18. REGISTERS TO BE COMPARED 
5$ ;RETURN TO 5$ ON ERROR 

6% ;RETURN TO 6% ON NO ERROR 
ERROR 42 ATTEMPTING TO WRITE WITH 

RTS PC WRITE LOCKED OUT 


;CAUSED IMPROPER REGISTER 


SEQ 0218 


a 1 
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10701 : CHANGE 

10702 ;GOOD DATA GIVES WHAT SHOULD 
10703 BE THERE 

10704 RECEIVED DATA GIVES WHAT WAS 
ores s THERE AFTER ATTEMPT 

10707 >*NOW A READ WILL BE DONE TO DETERMIN THAT 

10708 :*READS CAN BE DONE WITH WRITE LOCKED OUT AND 

+ Eh :*THAT NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR 
\ort2 040254 6$: 

10713 040254 004737 041524 JSR PC ,a#CLDISK SET R1-RHCS1, RzaRnCS2 

10714 :R3-RHDS1, R4G-RHER 

10715 :GIVE RH-11 inl timesas 

10716 ;SETUP UNIT NUMBER 

10717 

10718 s*FILL READ inte BUFFER WITH 0 

10719 040260 004037 041374 JSR RO, A#CLAREA :CLEAR 256. WORDS, FROM REINTO 
10720 040264 003534 REINTO STARTING FROM REINTO 

10721 040266 000400 256. =256. WORDS 

10722 040270 000000 0 sFILL WITH O 

10723 

10724 

10725 *FILL WRITE —— BUFFER “ir EXPECTED DATA FROM READ 
10726 040272 004037 041374 JSR RO, @#CLAREA LEAR 256. WORDS, FROM WRFROM 
10727 040276 002470 WRF ROM Ser iN FROM WRF ROM 

10728 040300 000400 256. =256. WORDS 

10729 040302 177777 -1 sFILL WITH =1 

10730 

10731 

ayes s*F ILL COMMAND 

10734 040304 004037 043476 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
10735 040310 000000 0 sCYLINDER 0 

10736 040312 000 BYTE 0 sSECTOR 0 

10737 040313 000 BYTE 0 s TRACK 0 

10738 040314 177400 -256. sWORD COUNT = 256. 

10739 040316 003534 REINTO :BUS ADDRESS 

10740 STARTING ADDRESS OF DATA 

10741 :BUFFER = REINTO 

10742 040320 000000 0 700 NOT INHIBIT BUS —" ee 
10743 040322 014000 ECL! FMT22 :16 BITS PER WORD FORMAT 
10744 s INHIBIT ECC CORRECTION 

10745 :DO0 NOT INHIBIT HEADER COMPARE 
10746 040324 007446 READAT :GET READY TO DO A READAT 

10747 :READ DATA WITH 70 IN RHCS1 

18 

10750 040326 013777 004606 141732 MOV AMRP4VEC, ARPVEC SET RPO4 VECTOR ADDRESS 

10751 :T0 "TIME1' IF P=CLOCK 1S PRESENT 
10752 OR TO 'TIME2' IF P=CLOCK IS NOT PRESENT 
10753 ="TIME* WILL ONLY SAVE 

10754 :CURRENT CYLINDER ADDRESS 

10755 AND LOOK AHEAD REGISTERS 

10756 





n 1 
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10757 

10758 040334 013746 002446 MOV Q@#READAT,-(SP) ;GET READY TO MOVE COMMAND 

10759 040340 052716 000101 BIS #GO!1E, (SP) GET READY TO SET ‘GO AND 

10760 ENABLE INTERRUPT 

10761 040344 012677 141730 MOV (SP)*,@RHCS1 ;GO WITH 

10762 ;70 IN RHCS1 FOR READ DATA 

10763 WITH INTERRUPT ENABLED 

10764 

10765 

10766 040350 104413 WAT ;WAIT FOR RDY BI TO SET 

10767 040352 002300 RHCS1 WAIT FOR RHCS1 REGISTER 

10768 040354 000200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
10769 040356 001614 908. ;ALLOW 9080 MICRO SECONDS 


10770 040366 001507 839. :RDY MUST SET BETWEEN 
+ 14.4 690 AND 17470 MICRO SECONDS 
+ 4h :*COMPARE READ DATA 
4 
10775 040362 004037 043542 JSR RO, a#COMPAR :COMPARE TWO BLOCKS OF MEMORY 
10776 040366 002470 WRF ROM GOOD DATA STARTS FROM WRFROM 
10777 040370 003534 REINTO TEST DATA STARTS FROM REINTO 
10778 040372 000400 256. 256. WORDS TO BE COMPARED 
10779 040374 040400 7$ RETURN TO 7$ ON ERROR 
eres 040376 040402 8$ RETURN TO 8$ ON NO ERROR 
10782 
10783 040400 104043 7$: ERROR 43 WRITING WITH WRITE 
10784 LOCKED CHANGED DISK 
10785 :GOOD DATA GIVES WHAT WAS 
10786 :ON DISK BEFORE WRITE WITH 
10787 WRITE LOCK WAS ATTEPTED 
10788 : 
10789 RECEIVED DATA GIVES WHAT 
10790 :WAS READ BACK AFTER WRITE 
sore) sWITH WRITE LOCKED WAS ATTEPTED 
1 ’ 
10793 s*SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN 
10794 : *UNLOCKED 
10795 
10796 040402 8$: 
10797 040402 004037 041672 JSR RO, a#SAVER SAVE REGISTERS 
10798 040406 002272 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
10799 040410 004612 SAVERE STARTING ADDRESS OF WHERE 
10800 THE REGISTERS ARE SAVED 
10801 040412 000022 18. NUMBER OF REGISTERS 
10802 sSAVED = 18. 
10803 
10804 040414 $120: 
10805 040414 104401 040422 TYPE 058 7; TYPE ASCIZ STRING 
10806 040420 000407 BR 64% >:GET OVER THE ASCIZ 
10807 ::65$: .ASCIZ <15><12>/0N DRIVE / 
10808 040440 64$: 
10809 040440 013746 004716 MOV S#UNIT,-(SP) :GE1 UNIT UNDER TEST 
10810 040444 104405 TYPDS 
10811 040446 104401 040454 TYPE ,67$ si TYPE ASCIZ STRING 
10812 040452 000440 BR 66$ :;GET OVER THE ASCI2 | 
ee Oe ee eis, Se. ae Ue ae 
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10813 ::67$: .ASCIZ <15><12>/PUSH WRITE PROTCT BUTTON TO UNLOCK WRITES THEN HIT CONTINUE/<15 
10814 040554 668: 

a 040554 000000 HALT 

H+ 444 :*THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHDS1 
10819 040556 004037 042404 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 

eae 040562 002322 RHDS1 CHANGE RHDS1 REGISTER 

10822 040564 000001 1 :1 BIT/BITS TO BE CHANGED 

10823 040566 000000 0 :NEW VALUE OF WRL IS 0 

soeee 040570 004000 WRL :CHANGE WRL BIT 

10826 :*COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED 

10827 s*WITH REGISTERS AFTER WRITE WAS UNLOCKED 

10828 

10829 

10830 040572 004037 042512 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 

10831 PRESENT VALUE 

10832 040576 004612 SAVERE :GOOD DATA SAVED IN ‘SAVERE' 

10833 040600 002354 we :TEST DATA STARTING FROM ‘RHWC' 

10834 040602 000022 18. 718. REGISTERS ad Be COMPARED 

10835 040604 040610 9$ :RETURN TO 9$ ON ERROR 

10856 040606 040614 10$ :RETURN TO 10$ ON NO ERROR 

10838 040610 104044 9$: ERROR 44 UNLOCKING WRITES BY WRITE 

10839 040612 000207 RTS PC LOCK BUTTON CAUSED AN ERROR 

10840 :GOOD DATA GIVES WHAT SHOULD 

10841 :BE THERE 

10842 sRECEIVED DATA GIVES WHAT WAS 

10843 THERE AFTER WRITES WERE 

10844 s UNLOCKED 

10845 :0N THIS ERROR NO LOOPING IS RECOMMENDED 
10846 :JUST A HALT ON ERROR WILL DO THE SAME 
10847 THING AS ONLY THE REGISTERS ARE READ 


10848 040614 012737 177777 047342 108: MOV #-1 ,a#PRITEM ;CLEAR PREVIOUS ITEM NUMBER 


soniw! vo eee FCTNL CTLRI 


CZRJID.P 


040622 
040624 
040632 


040640 
040644 


040716 
040716 
040722 
040724 
040730 


040736 


040760 


040762 


041000 
041004 


041010 


041042 
041046 
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000004 
012737 
012737 
104401 
000424 


013746 
104405 
104401 
000402 


013746 


001413 


005237 


000137 
012737 


000137 
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000001 
000000 


040646 


004716 
040732 


001112 


001112 
001102 
004726 


001100 
041157 
001100 


041154 
010102 


177777 
004720 


004716 
004676 
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; ,eeeereerererererererereerererererererererererererereeereeeeeeee 


sy eeteeeerererererereeereereeeeeeeeeererKerereKeeeeeeeKeeeeeereeee 
py eeeeterererrerrrereerrererererererereereerereneneKrertenereerenes 


s*TEST 51 
THIS 1S THE END OF TEST FOR ONE DRIVE 


IF THERE ARE MORE DRIVES, THEN THE PROGRAM 
JUMPS TO TEST 4 FOR TESTING THE NEXT DRIVE 


END PASS IS REACHES ONLY AFTER ALL DRIVES ARE TESTED 


S ;eeeaeererereeeerereeeteeeeetereeereteeKeKeKeKeeRKAKeteineeeeese 


1S151: 


001212 
177776 


33658: 


643: 


33678: 


66$: 


047342 38: 


2$: 


END OF DRIVE 


#1, $TIMES 
#0,PS 


ee 


:;D0 1 ITERATION 
sREINSTATE PS TO 0 


ii TYPE ASCIZ STRING 
OVER THE ASCIZ 


64% ;GET 
<15><12>/TOTAL ERRORS ON THIS PASS ON UNIT NO./ 


@#UNIT,-(SP) 


OASERTTIL,-(SP) 


OWSERTIL 
aaSTSTNM 
@#SELECT 
3$ 


a#SPASS 
- SENDMG 
Q#SPASS,-(SP) 


» SENULL 
aaTST4 


#-1,Q#PRITEM 
@#NOUNITS 


SEOP 
a#UNIT,RO 
#UNITS,RI 
(R1)+#,RO 
23 


1$ 
(R1) ,@#UNIT 
aaTstTs 


;GET READY TO TYPE UNIT NUMBER 


3; TYPE ASCIZ STRING 
3;GET OVER THE ASCI2Z 


;GET READY TO TYPE NUMBER OF ERRORS 


;CLEAR TOTAL NUMBER OF ERRORS 
;CLEAR TEST NUMBER 

;STARTING FROM 200 ? 

;CHECK NEXT DRIVE IF SO 
;CONTINUE WITH THIS ONE IF NOT 


s INCREASE PASS COUNT 
;TYPE ‘‘END PASS #"' 


; JUMP TEST 4 


;CLEAR PREVIOUS ITEM NUMBER 
NO. OF UNITS PRESENT 

;BRANCH IF ALL DRIVES COMPLETE 
UNIT UNDER TEST 

; TABLE POINTER 

1S THIS UNIT JUST TESTED ? 
BRANCH IF YES 
BRANCH IF NO 

MAKE THIS NEXT UNIT 
TEST THE NEXT DRIVE 


SEQ 0222 


CZRJ1DO, RPOG/S/6 FCTNL CTLRI 
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041052 


041164 
041172 


28-MAR-79 


000004 
0 


000240 
000137 
006314 
377 
015 


050040 
000043 


09:03 


01102 
001212 
001100 
100000 


041157 
001100 


041154 
000042 


377 
051501 
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001100 


000 
020123 


~SBTTL 
~SBTTL 
~ SBTTL 


**SUBROUTINES** 


~SBTTL END OF PASS ROUTINE 


ppeeewereereeererrereerereereeererereeeeeeeAKereeeeeeeeeeeeeeTene 
;* INCREMENT THE PASS NUMBER ($PASS) 

S*TYPE “‘END PASS @XXXXX'" (WHERE XXXXX 1S A DECIMAL NUMBER) 

;*1F THERES A MONITOR GO TO IT 

:*1F THERE ISN'T JUMP TO TST1 


SEOP: 


SEOPCT: . 


SENDCT: . 


$GET42: 


SENDAD: 


$DOAGN: 


SRTNAD: . 
SENULL: 
042412 042116 SENDMG: 


-BYTE 
~ASC12Z 


STSTNM ;;ZERO THE TEST NUMBER 
STIMES ;;ZERO THE NUMBER OF ITERATIONS 
SPAS >; INCREMENT THE PASS NUMBER 


S 23 
#100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
(PC)+ OOP? 


1 
$DOAGN 77 YES 
‘Paeouingon: 7 RESTORE COUNTER 


, SENDMG 77 TYPE “‘END PASS #"' 
SPASS,-(SP) 7;SAVE SPASS FOR TYPEOUT 
3;G0 TYPE--DECIMAL ASCII WITH SIGN 
» SENULL 3; TYPE A NULL CHARACTER 
a#42,R0 3:GET MONITOR ADDRESS 
SDOAGN ;;BRANCH IF NO MONITOR 
3;CLEAR THE WORLD 
PC, (RO) 3:;G0 TO MONITOR 
3; SAVE ROOM 
7: FOR 
73ACT11 
a(Pc)+¢ 3; RETURN 
TST1 


-1,-1,0 s NULL CHARACTER STRING 
<15><12>/END PASS #/ 


SEQ 0223 


a 
CZRJIDO, RPO4/5/6 FCTNL CTLRI = MACYI1 7. ae 25-MAY-79 10:30 PAGE 225 


CZRJID.P11 28-MAR-79 09:03 END OF PASS ROUTINE SEQ 0224 
10948 

10949 

aeas -SBTTL JAM CURRENT CYLINDER ROUTINE 

10952 s*THIS ROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER = ‘RHCC’ 
10953 :*BY GIVING A ‘SEEK* COMMAND FOLLOWED BY AN INIT WHICH WILL LOAD 
10954 *"RHCC' WITH THE DESIRED CYLINDER VALUE. THE ROUTINE THEN CHECKS 
10955 jeTHAT THE LOADED VALUE IS CORRECT. 

10956 

10957 TeCALL 1S: 

10958 ie JSR RO,@#MAKECYL 

ioeae 3* xe ;DESIRED VALUE OF CURRENT CYLINDER 
10961 041174 MAKECYL: 


10962 041174 010546 MOV R5,-(SP) ;;PUSH R5 ON STACK 

10963 041176 010037 041560 MOV RO,a#PCJSR ;PC OF JSR+4 

10964 041202 162737 000004 041560 SUB #4 ,a#PCJSR SAVE PC OF JSR 

10965 041210 012005 MOV (RO)+,R5 :GETTING READY TO FILL DESIRED CYLINDER 
10966 041212 010577 141074 MOV R5,@RHCA sFILL DESIRED CYLINDER REGISTER 

10967 041216 005077 141062 CLR @RHDST ;MAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL 
10968 041222 013777 002452 141050 MOV a#SEECOM,ARHCS1 ;FILL SEEK COMMAND 

i 041230 012777 000001 141062 MOV #OMD ,ARHMR SET DIAGNOSTIC MODE 

10971 041236 004737 043436 JSR PC ,a#PUTREG ; TAKE A REGISTER SNAPSHOT 

10972 041242 032737 040000 002404 BIT WERR,a#DS1 ; CHECK a COMPOSITE ERROR 

10973 041250 001401 BEQ 2$ ;NOT = 1, A-OK 

10974 041252 104103 ERROR 103 TREGISTER CONTENTS INCORRECT BEFORE A 
44 ;DIAGNOSTIC SEEK 

10977 041254 052777 000001 141016 2$: BIS #G0,aRHCS1 ; ISSUE 'GO* TO SEEK COMMAND 

10978 041262 000240 NOP ;ALLOW TIME FOR SEEK TO HANG UP 

10979 041264 000240 NOP ALLOW TIME FOR SEEK TO HANG UP 

10980 041266 000240 NOP ;ALLOW TIME FOR SEEK TO HANG UP » 
+44 041270 000240 NOP ;ALLOW TIME FOR SEEK TO HANG UP 

10983 041272 004737 043436 JSR PC ,a#PUTREG ; TAKE A 2ND REGISTER SNAPSHOT 

10984 041276 032737 040000 002404 BIT WERR,@#DS1 ;CHECK FOR ERRORS 

10985 041304 001401 BEQ 3$ ;NOT = 1, A-OK 

10986 041306 104104 ERROR 104 REGISTER CONTENTS INCORRECT AFTER 

4 baad :A DIAGNOSTIC SEEK 

10989 041310 004737 041524 3$: JSR PC ,a#CLDISK :GIVE INIT TO FORCE THE TRANSFER 

10990 041314 017737 141014 001126 MOV Q@RHCC,Q#SBDDAT ; TEST DATA 

10991 041322 020537 001126 CMP R5,a#$BDDAT ; COMPARE CURRENT CYLINDER 

10992 041326 001406 BEQ 1$ ;BRANCH IF GOOD 

10993 041330 010537 001124 MOV RS ,a#$GDDAT ;GOOD VALUE OF RHCC 

10994 041334 013737 002334 004600 MOV Q@#RHCC,Q#REGADR ;FAILING REGISTER ADDRESS 

10995 041342 104077 ERROR 77 CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
10996 REGISTER AFTER A SEEK AND AN INIT 
10997 041344 1$: 

10998 041344 012605 MOV (SP)+#,R5 7:POP STACK INTO RS 

10999 041346 000200 RTS RO 
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11000 
11001 s*THIS FILLS MEMORY WITH GIVEN DATA 
11002 s*USED CHIEFLY FOR HEADER INFORMATION 
11003 s*CALL 1S 
11004 3* JSR RO, a#FLHEAD sFILL HEADER 
11005 ;* Loc sLOCATION WHERE SAVED 
11006 3* XN ;NUMBER OF WORDS 
11007 3f X01 :DATA REPEATED XN TIMES 
11008 3* XD2 sDATA REPEATED XN TIMES 
11009 3 
11010 3 
11011 ;t 
11012 
11013 041350 FLHEAD: 
11014 041350 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
11015 041352 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
11016 041354 012001 MOV (RO)+,R1 3R1 HAS ADDRESS OF WHERE TO SAVE 
by a4 041356 012002 MOV (RO)+,R2 ;R2 HAS NUMBER OF WORDS 
11019 >*NOW FILL DATA 
11020 
11021 041360 012021 1$: MOV (RO)+,(R1)¢ ;SAVE DATA 
11022 041362 005302 DEC R2 :DECREMENT COUNT 
11023 041364 001375 BNE 1$ ;BRANCH IF INCOMPLETE 
11024 041366 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
11025 041370 012601 MOV (SP)+,R1 :;POP STACK INTO R1 
11026 041372 000200 RTS RO 
11027 
11028 
11029 
11030 s*THIS CLEARS ANY BLOCK OF MEMORY. 
11031 s*FILLING 1T WITH ANY DATA 
11032 s*CALL IS 
11033 ;* JSR RO, a#CLAREA 
11034 se F FROM 
11035 if N sNUMBER OF WORDS 
11036 ;* 1) sDATA TC BE FILLED 
11037 :* 
11038 :*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
11039 s*R2 WILL HAVE NUMBER OF WORDS 
11040 :*R3 WILL HAVE DATA 
11041 
11042 041374 CLAREA: 
11043 041374 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
11044 041376 010246 MOV R2,-(SP) 7;PUSH R2 ON STACK 
11045 041400 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
11046 041402 012001 MOV (RO)+,R1 ; FROM 
11047 041404 012002 MOV (RO)+,R2 ;NUMBER 
11048 041406 012003 MOV (RO)+,R3 sDATA 
11049 041410 010321 1$: MOV R3,(R1)+ sMOVE DATA 
11050 041412 005302 DEC R2 3; COUNT 
11051 041414 001375 BNE 1 ;BRANCH IF NOT COMPLETE 
11052 041416 012603 MOV (SP)4+,R3 :;POP STACK INTO R3 
11053 041420 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
11054 041422 012601 MOV (SP)+,R1 >;POP STACK INTO R1 
11055 041424 000200 RTS R sRETURN TO MAIN PROGRAM 
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11056 

11057 

11058 

11059 

11060 

11061 

11062 s*THIS 1S A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
11063 s*W1TH GIVEN VALUE 

11064 s*CALL 1S 

11065 3* JSR RO, a#F ILLRE 

11066 3 RHXX sREGISTER NAME 

11067 3t D DATA 

11068 7* 

11069 

11070 041426 FILLRE: 

11071 041426 010146 MOV R1,-(SP) 77;PUSH R1 ON STACK 
11072 041430 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
11073 041432 012001 MOV (RO)+,R1 sADDRESS OF ADDRESS OF REGISTER 
11074 041434 012002 MOV (RO)+,R2 DATA 

11075 041436 162701 902272 SUB #WRHWC,RI OF SET 

11076 041442 010261 004612 MOV R2,SAVERE(R1) ;DATA IS MOVED IN 

11077 041446 012602 MOV (SP)+,R2 >;POP STACK INTO R2 
11078 041450 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
11079 041452 000200 RTS RO :RETURN TO MAIN PROGRAM 
11080 

11081 

11082 
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11083 ;*THIS SUBROUTINE SETS UP FOR SEARCH 

11084 s*CALi 1S 

11085 3% JSR RO, a#SRCH 

11086 ;* C ; CYLINDER 

11087 3*.BYTE S s SECTOR 

lo ;*.BYTE T : TRACK 

11090 041454 012077 140632 SRCH: MOV (RO)+,@RHCA sSET DESIRED CYLINDER ADDRESS 
11091 041460 012077 140620 MOV (RO) + ,@RHDST sSET DESIRED SECTOR/TRACK ADDRESS 
11092 041464 013777 002434 140606 MOV Q#SERCH,A@RHCS1 ;GET READY FOR SEARCH 

11093 sW1ITH 30 IN RHCS1 

11094 041472 000200 RTS RO 

11095 

11096 

11097 

11098 

11099 

11100 

11101 

11102 :*THIS SUBROUTINE SETS UP FOR $°:K COMMANDS 

11103 s*CALL 1S 

11104 3* JSR RO,a#SEEKCY 

11105 ;* C sCYLINDER 

108 : 

11108 041474 012077 140612 SEEKCY: MOV (RO)+,@RHCA :SET DESIRED CYLINDER ADDRESS 
11109 041500 013777 002452 140572 MOV @#SEECOM,ARHCS1 ;MOV 4 INTO RHCS1 

11110 041506 000200 RTS RO ;RETURN TO MAIN PROGRAM 


ee ee et ae nt ot ~~ 
ee ee ee ee ee ee eS zm 
ee et oe ee €& 
SO OONOUFWN—OOONCYVFWN— OO 
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>} ae 
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>*THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 


:*CALL IS 

7 JSR RO,a#OF SET 

hag 0 MICRO INCHES OF SET 
041510 052077 140574 OFSET: BIS (RO) + ,@RHOF ;SET OFSET REGISTER 
041514 013777 002454 140556 MOV QMOFSETC,@RHCS1 ;MOV14 INTO RHCS1 
041522 000200 RTS RO RETURN TO MAIN PROGRAM 
041524 013701 002300 CLDISK: MOV Q#RHCSI, RI 7R1 WILL BE CONTROL AND STATUS1 
041530 013702 002276 MOV a#RHCS2, R2 :R2 WILL BE CONTROL AND STATUS2 
041534 013703 0062322 MOV Q#RHDS1, R3 3R3 WILL BE DISK STATUS REGISTERI 
041540 013704 002302 MOV Q#RHERI, RG :R4 WILL BE ERROR REGISTER #1 
041544 012712 000040 MOV #CLR,AR2 ;CLEAR ALL REG. 
041550 013712 004716 MOV Q#UNIT,aR2 ;REINSTATE UNIT NO. 
041554 005011 CLR orl 7CLEAR FUNCTION BITS 
041556 000207 RTS PC 


l 
l 
1 
11 
1 
1 
1 
11 
11 
11 
11 
11 
11 
11 
11 
1 
11 
11 
11 
11 
11 
11 
11 
1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


Us 
— 


041560 
041562 


041602 


041604 
041610 
041616 


041620 
041622 
041626 


041632 
041634 
041640 


041642 
041646 
041652 
041654 
041660 


041662 


041664 


041670 
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000000 
011637 


000406 


011637 
162737 
011346 


011146 
042716 
022726 


001403 
011137 
104061 


042716 
022726 
001404 
011337 
104062 


000207 


062716 
000207 
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s*THI]S CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
7*AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY 
s* (DRY) IN RHDS1 = 1 


:*1T ALSO CHECKS THAT THERE ARE NO BITS STUCK AT 1 IN RHDS1 


PCJSR: 0 :PC OF JSR 
CHECK: MOV (SP) ,a#PCJSR SAVE PC OF JSR+4 

SUB #4 ,a#PCUSR ;GET PC OF JSR 

MOV @R3,-(SP) GET RHDS1 

BIS #VV,(SP) ;DONT CHECK VV BIT 

BR CHECKC ;GOTO COMMON CHECK ROUTINE 
CHECKT: MOV (SP) ,a#PCJSR SAVE PC OF JSR+4 

SUB #4 ,a#PCJSR ;GET PC OF JSR 

MOV @R3,-(SP) ;GET RHDS1 & DO vv CHECK AT 3$ 
CHECKC: MOV aR1,-(SP) ;GET CS1 

BIC #173577,(SP) ;CLEAR UNWANTED BITS 

CMP WDVAIRDY,(SP)* ;RHCS1 SHOULD HAVE DEVICE AVAILABLE 

;AND BE READY 

BEQ 3$ ;BRANCH IF IT DOES 

MOV QR1,a#$BDADR ;BAD DATA REGISTER (RHCS1) 

ERROR 61 ;RHCS1 DID NOT HAVE DEVICE 


AVAILABLE RIGHT AT THE START 
;ALL OTHER BITS SHOULD BE 0 


3$: BIC WATA!LBT, (SP) ;CLEAR UNWANTED BITS 


CMP #MOL!DPRIDRY!VV,(SP)+ ;RHDS1 SHOULD HAVE THESE SET 
$ ;BRANCH IF GOOD 
MOV OR3,a#S$BDADR ;BAD DATA IN REGISTER (RHDS1) 
62 ;RHDS1 HAS SOME BITS OTHER 
; THAN MOL, DRY, DPR,VV SET 
;ALL OTHER BITS SHOULD BE 0 
RTS PC ;RETURN TO TEST AND HALT/CONTINUE 
;DEPENDING ON WHETHER THIS IS A 
;""FATAL’’ ERROR 


7$: ADD #6, (SP) ;ADJUST STACK TO JUMP OVER HALT IN TEST 
RTS PC ;RETURN TO THE TEST AND CONTINUE 
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;*THIS 1S A SUBROUTINE TO SAVE REGISTERS 
;*IN THE REGISTER TABLE TO ANY LOCATION 
;*THE CALL IS 
*JSR RO, @#SAVER 

; FROM 


310 

:* ;NUMBER OF WORDS SAVED 
7*F MUST ALWAYS BE RHCS1 

7*T MUST ALWAYS BE SAVRE 


041672 SAVER: 

041672 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
041674 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
041676 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
041700 012001 MOV (RO)+,R1 ; FROM 

041702 012002 MOV (RO)+,R2 37 

041704 012003 MOV (RO)+,R3 ; NUMBER 

041706 013122 1$: MOV a(R1)+,(R2)+ SAVE REGISTER CONTENTS 
041710 005303 DEC R3 ; COUNT 

041712 001375 BNE 1$ ;BRANCH IF NOT DONE 
041714 012603 MOV (SP)+,R3 7;POP STACK INTO R3 
041716 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
041720 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
041722 000200 RTS RO 


;*WHEN AN EVENT IS TO BE TIMED THE RPO4 VECTORS TO ‘‘TIME 1°° 
;*PRIORITY OF PROCESS OR IS 4 

:*PRIORITY OF TRAPS MUST BE 6 : 

:*PRIORITY OF RPOS INTERRUPTS IS 7 


041724 005077 140414 TIME1: CLR aPCLCSR ;STOP THE CLOCK 
041730 017737 140414 041762 MOV Q@PCLCTR,Q#WAITIM ;GET TIME ON CLOCK 

041736 017737 140372 004664 TIME2: MOV ORHCC MF INACC GET CURRENT CYLINDER 
041744 017737 140366 004662 MOV ORHLA,@#FINALA ;GET LOOK AHEAD 
041752 000002 RT] ;RETURN TO WAIT P OR WAIT.1 


p*THIS 1S A WAIT LOOP WHEN AN EVENT IS TO BE TIMED 
;*THE CALL 1S 


i ¢ 
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ABSOLUTE REGISTER ADDRESS 
;B11T WAITED FOR 

TA ;TIME ALLOWED GIVEN IN 10 MICROSEC 

TO ; TOLERANCE PLUS/MINUS IN 10 MICROSEC 


s*Ri-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 

;*R2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS 
;*MINIMUM TIME THAT CAN BE MEASURED 1S ABOUT 12 MICRO SECONDS 
;*FOR THE SLOWEST PROCESSOR 


041754 000000 WAITPC: sWAT PC 
WAITRE: sWAIT ON REGISTER ADDRESS 
WAITBT: ;WAIT ON BIT 
WAITIM: sWAITED TIME 
041762 WAIT.P: QeWALTIM sCLEAR WAITED TIME 
140352 @PCLBUF ;CLEAR COUNT SET BUFFER 
000021 140342 #GO'BIT4,aPCLCSR ;COUNT UP, 100 KHZ, START CLOCK 
) 3;PUSH RO ON STACK 
>;PUSH R1 ON STACK 
3;PUSH R2 ON STACK 
:;PUSH R3 ON STACK 
000010 >RO HAS ADDRESS OF NEXT LOCATION 
041754 RO, a#WAITPC sNOW WAITPC HAS WAT PC + 2 
000002 041754 #2, a#WAITPC sWAT PC IS IN WAITPC 
041756 Q(RO)+,a#WAITRE ;WAIT ON REGISTER ADDRESS 
041760 (RO)+,a#WAITBT ;WAIT ON BIT 
(RO)+,R1 3R1 HAS TIME IN 10 MSEC 
(RO)+,R2 :R2 HAS TOLERANCE IN 10 MSEC 
042044 010066 000010 RO,10(SP) sRESTORE RETURN ON STACK 


;*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 
042050 013703 042222 MOV a#TIMCNT,R3 :R3 1S A TEMPORARY COUNTER 
041760 177674 ; Q#WAITBT,@WAITRE ;1S REQUIRED BIT THERE 

4$ ;BRANCH IF YES 

R3 ;COUNT IF REQUIRED BIT NOT THERE 


1$ 
042222 O#TIMCNT,RS ; TEMPORARY COUNTER 
041760 177654 : Q#WAITBT,QWAITRE ;1S REQUIRED BIT THERE 
4$ ;BRANCH IF YES 
R3 ;COUNT IF REQUIRED BIT NOT THERE 


2$ 
177642 QWAITRE ,a#S$BDDAT ; REGISTER CONTENTS FOR TYPEQUT 
000100 W1E,QRHCS1 ;D1D ANY INTERRUPT OCCUR 

3$ ;BRANCH IF YES 
; os DID NOT INTERRUPT 


BR $ ;0U 
042132 : ERROR 2 ;RPO4 INTERRUPTED BUT WAITED 
;0ON BIT DID NOT OCCUR 
sEVEN AFTER TWO COUNT DOWNS 
:FROM 177777 10 0 
042134 BR 7$ ; OUT 


:*NOW TIME AND TOLERANCE WILL BE CHECKED 
042136 177614 001126 : MOV QWAITRE ,a#$BDDAT ; REGISTER CONTENTS FOR TYPEOUT 
042144 000100 140126 BIT WIE, aRHCS1 01D ANY INTERRUPT OLCUR 
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042152 
042154 


042156 
042160 
042162 


042166 
042170 
042172 
042174 
042176 
042200 


042204 
042206 


042210 


042220 


042222 
042224 


042260 


001402 
104005 


000414 
160201 
023701 


103002 
104004 


000406 


060202 
060201 
020137 


103001 
104004 


012603 
012602 
012601 
012600 
000002 
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041762 


041762 


000004 
041754 
000002 
041756 
041760 


000004 


BEQ 
ERROR 


$ 
WAT 
A 


B 
TA 
TO 
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5% 

3 

7$ 

R2,R1 
QaWALTIM,R1 
6$ 

4 

7$ 

R2,R2 

R2,R1 
R1,a#WwAlTIM 
7$ 

4 


(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


7*THIS 1S A WAIT LOOP WHEN NO P-CLOCK 1S AVAILABLE 
;*NO TIMING IS DONE 


; ABSOLUTE REGISTER ADDRESS 
;B11 WAITE) FOR : 

; TIME-NOT USED HERE 

; TIME-NOT USED HERE 


A_TEMPORARY COUNTER 


177777 


RO,-(SP) 
R3,-(SP) 
4(SP),RO 
RO ,a#WAITPC 
#2, Q#WAITPC 


Q(RO)+ ,Q#WAITRE 
(RO)+,a#WAITBT 


(RO)+,(RO)+ 
RO,4(SP) 





;BRANCH IF YES 

; INTERRUPT DID NOT OCCUR EVEN 
;AFTER ONE BNE AND ONE MOV 
;OF THE WAITED ON BIT SETTING 


;0U 

;R1 NOW HAS LOWER LIMIT OF TIME 
;FOR GOOD RESULTS, WAITIM 

eed BE GREATER OR EQUAL 


; TORI 

;BRANCH IF GOOD 

;B1T DID OCCUR BUT TIME 
— 1S BELOW LOWER LIMIT 
; OU 


;DOUBLE TOLERANCE 

;R1 NOW HAS UPPER LIMIT OF TIME 
;FOR GOOD RESULTS, WAITIM 

;MUST BE LESS OR EQUAL TO R1 
BRANCH IF GOOD 

;B1T DID OCCUR BUT TIME TAKEN 
1S ABOVE UPPER LIMIT 


::;POP STACK INTO R3 
:;PGP STACK INTO R2 
:;POP STACK INTO R1 
;;POP STACK INTO RO 
sRETURN TO MAIN TEST 


;COUNT FOR WAIT LOOP 


7;PUSH RO ON STACK 

7;PUSH R3 ON STACK 

sRO HAS ADDRESS OF NEXT LOCATION 
sWAT PC #2 IS IN WAITPC 

sWAT PC IS IN WAITPC 

;WAIT ON REGISTER ADDRESS 


;DUMP NEXT TWO WORDS-TA, T0 
RESTORE RETURN ON STACK 


;*THIS HAS THE TWO COUNT DOWNS FROM 177777 
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11346 042264 013703 042222 MOV Qs TIMCNT,RS :R3 HAS TEMPORARY COUNT 
11347 042270 033777 041760 177460 18: BIT Q#WALTBT,QWAITRE ;1S REQUIRED BIT THERE 
11348 042276 001025 BNE 4$ ;BRANCH IF YES 
11349 042300 005303 DEC + ;COUNT IF REQUIRED B11 NOT THERE 
11350 042302 001372 BNE 
11351 042304 013703 042222 MOV aFTIMCNT, R3 :SECOND COUNT DOWN FROM 177777 
11352 042310 033777 041760 177440 2%: BIT QWWAITBT,@WAITRE ;1S REQUIRED BIT THERE 
11353 042316 001015 BNE 4% ;BRANCH IF YES 
11354 042320 005303 DEC R3 ;COUNT IF REQUIRED BIT NOOT THERE 
11355 042322 001372 BNE 2% 
11356 042324 017737 177426 001126 MOV QWAITRE ,a#$BDDAT ; REGISTER CONTENTS FOR TYPEOUT 
11357 062332 032777 000100 137740 BIT #1E,QRHCS1 :01D ANY INTERRUPT OCCUR 
11358 042340 001402 BEQ 3$ ;BRANCH IF YES 
11359 042342 104001 ERROR 1 ;RPO4 DID NOT INTERRUPT 
11360 oe DID NOT OCCUR 
11361 042344 000414 BR 5$ ;0uUT 
11362 042346 104002 3$: ERROR 2 ;RPO4 INTERRUPTED BUT 
11363 :WAITED ON BIT DID NOT OCCUR 
11364 ZEVEN AFTER TWO COUNT DOWNS 
11365 :FROM 177777 10 0 
aaee 042350 000412 BR 5$ ;OuT 
11368 by DID SET SO CHECK IF INTERRUPT OCCURED 
11369 042352 000240 4%: ALLOW TIME FOR INTERRUPT 
11370 042354 032777 000100 ‘'37716 BIT #1E,@RHCS1 :D1D ANY INTERRUPT OCCUR 
11371 042362 001405 BEQ 5¢ :BRANCH IF YES 
11372 042364 017737 177306 091126 MOV QWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT 
11373 042372 104003 ERROR 3 ; INTERRUP1 DID NOT OCCUR 
11374 EVEN AFTER ONE BNE OF 
11375 ; THE WAITED ON BIT OCCURING 
11376 042374 000400 BR 5$ ; OUT 
11377 042376 5$: 
11378 042376 012603 MOV (SP)+,R3 7:POP STACK INTO R3 
11379 042400 012600 MOV (SP)+,RC 3;POP STACK INTO RO 
11380 042402 000002 RT] ;RETURN TO MAIN TEST 
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88 

89 042404 
2 

94 042414 43 34.94 002272 
3 

97 042424 aaeees 004612 


042432 goees) 004612 


1404 042446 000200 


1405 

1407 

1408 

1409 

1410 

1411 

1412 

1415 

1414 

1415 

1416 

1417 

1418 

1419 042450 

1420 042450 010146 
1421 042452 010246 
1422 042454 010346 
1423 042456 010446 
1424 042460 012001 
1425 042462 01200 


2 
1426 042464 012003 
1427 042466 012004 


1429 042470 010321 


ee el ce cel el el el el el ee el el el el el el el el ee ee 
—— 
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JAM CURRENT CYLINDER ROUTINE 
>*THIS CHANGES REGISTER SAVED VALUE 
:*CALt 1S 

RO, a#CHREG 


2$: 
3$: 


° JSR 
R 


N 
“ae 


ce 

;* 

‘* POS! 

odes AND P WILL BE REPEATED N NUMBER OF TIMES 
HR 


R1,-(SP) 


2% 
.— » SAVERE(R1) 
ee, , SAVERE(R1) 


1$ 
(SP)+,R2 
(SP)+,R1 
RO 


REGISTER TO BE CHANGED 

;NUMBER OF B11S TO BE CHANGED 

i NEW VALUE OF BIT MUST BE 0 ORI 
TION OF BIT TO BE CHANGED 


;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;R1 HAS ADDRESS OF ADDRESS OF REGISTER 
;R2 HAS NUMBER OF CHANGES 
:RI HAS OFSET OF REQUIRED REGISTER 
;1S A BIC OR A BIS TO BE DONE 
;BRANCH IF A BIC IS REQUIRED 
;SET REQUIRED BI* 
;BRANCH TO DECREMENT COUNT 
;CLEAR REQUIRED BIT 
;DECREMENT NUMBER OF CHANGES 
;BRANCH IF NOT COMPLETE 
:;POP STACK INTO R2 
;;POP STACK INTO R1 
;RETURN TO MAIN PROGRAM 


s*THIS FILLS A BLOCK WITH INCREMENTAL DATA 


s*CALL IS 

;* JSR RO, ,aMFILL 

3* F 

3* N 

3* s 

;* l 

FILL: 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV (RO)+,R1 
MOV (RO)+,R2 
MOV (RO)+,R3 
MOV (RO)+,R4 

>*NOW DATA WILL BE FILLED 

1$: MOV R3,(R1)¢ 
ADD R4,R5 
DEC R2 
BNE 1$ 
MOV (SP)+,R4& 
MOV (SP)+ “R3 
MOV (SP)+,R2 
MOV (SP)+,R1 


3; FROM 

;NUMBER OF WORDS 
sSTARTING VALUE OF DATA 
> INCREMENT DATA BY 


>;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

>;PUSH R3 ON STACK 

3;PUSH R4& ON STACK 

:R1 HAS ADDRESS WHERE DATA IS 10 50 
sR2 HAS NUMBER OF WORDS TO BE FILLED 
sSTARTING VALUE OF DATA 

3R4 HAS INCREMENT 


sFILL DATA 

GET NEXT VALUE OF DATA 
:DECREMENT COUNT 
;BRANCH IF ALL NOT DONE 
:;POP STACK INTO R4 
:;POP STACK INTO R3 
s;POP STACK INTO R2 
:;POP STACK INTO R1 


SEQ 0234 
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RTS 


RO 


;RETURN TO MAIN PROGRAM 


SEQ 0255 


sort: viet ci CTLRI 


CZRJ1D 


042534 
042536 
042542 
042550 


042554 


042602 
042604 


042626 
042630 


042644 


28-MAR-79 


011000 


004737 
113737 
012705 


062705 


004714 
022122 


001352 


012605 


000000 


09:03 


043436 
004637 
177776 


000002 


001124 
001126 
002272 


136326 
177177 
000200 
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s*THIS IS A SUBROUTINE TO COMPARE REGISTERS 
:*GOOD DATA 1S ALREADY SAVED IN ‘SAVERE' 
:*TEST DATA IS IN THE REGISTERS 


:*CALL 1S 

:* JSR RO, a#COMREG 

bed SAVERE ;GOOD DATA 

s* RHCS1 ADDRESS OF ADDRESS TEST DATA 

be N. ;RETURN FOR ERROR 

Soi RG ;RETURN FOR GOOD COMPARISON 

“Te RETURN WITH ERROR "SGDDAT' HAS GOOD DATA, 'SBDDAT' HAS BAD DATA 
;*"REGADR' HAS REGISTER ADDRESS 


COMREG: 

MOV R1,-(SP) ;;PUSH R1 ON STACK 
3;PUSH R2 ON STACK 
3;PUSH R3 ON STACK 
7;PUSH R& ON STACK 


3;PUSH R5 ON STACK 


MOV (RO)+,R1 ;R1 HAS ADDRESS OF GOOD DATA 
MOV (RO)+,R2 =R2 HAS ADDRESS OF ADDRESS OF TEST DATA 
MOV (RO)+,R3 R3 HAS NUMBER OF WORDS 
MOV (RO)+,R4 sR4& HAS RETURN FOR ERROR 
MOV (RO) ,RO RO HAS RETURN ON NO ERROR 
s*NOW SAVE REGISTERS 
JSR PC ,a#PUTREG ;SAVE REGISTERS 
MOvB Sa SAVERES DS. aevAaS+l; “ UPPER BYTE OF RHAS SAME 
MOV #-2,R5 PRESET RS TO -2 
> *NOW COMPARES WILL MADE 
1$: ADD #2,R5 ; INCREMENT TO INDEX 
CMP (Ri)¢, (R2)+ : COMPARE REGISTER CONTENTS 
BEQ 23 BRANCH IF GOOD 
MOV -(R1),a#$GDDAT ;SAVE GOOD DATA 
MOV -(R2),a#$BDDAT ;SAVE BAD DATA 
MOV RHWC (RS) ,@#REGADR ;SAVE ADDRESS OF FAILING REGISTER 
JSR PC,a@R4 s;RETURN TO MAIN PROGRAM 
;TO PRINT ERROR 
CMP (R1)+,(R2)¢ sUNDO -(R1) AND -(R2) FOR ERRORS 
MOV aSwR,-(SP) sGET SWITCH SETTING 
BIC #*C600, (SP) ;KEEP ONLY SWITCH 7 AND 8 
CMP #SWO7,(SP)+ :18 7 SET AND 8 DOWN 
BEQ 3$ ;BRANCH OUT IF YES 
2$: DEC Re ;ARE ALL COMPARES DONE 
BNE 1$ ;BRANCH IF NOT COMPLETE 
3$: 
MOV (SP)+,R5 3;POP STACK INTO RS 
MOV (SP)+,R4 3;POP STACK INTO R4 
MOV (SP)+,R3 3;POP STACK INTO R3 
MOV (SP)+#,R2 ;;POP STACK INTO R2 
MOV (SP)+,R1 3;POP STACK INTO R1 
RTS RO ;RETURN TO MAIN PROGRAM 
4%: «WORD 0 ; TEMP STORAGE 


SEQ 0236 
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042646 
042650 
042650 
042654 
042662 
042666 


042732 
042732 
042736 
042740 
042744 


042776 


043014 
043076 
043076 
043102 
043164 
043164 
043170 


043236 


045254 


000000 
005037 
012737 


104401 
000421 


013746 
104402 
104401 
000414 


013746 


000430 


104401 
000430 
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000422 
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;*HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
;*ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
;*PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


;*WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
;*THE PROGRAM GOES BACK TO CAN BE CHANGED. 

:>*THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 
:*1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

:*2. LOOP ON ERROR SWITCH MUST BE SET 

:*3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

:*1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
;*THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
s*TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
;*THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
:*COMES TO THE END OF THE TEST UNDER CONSIDERATION. 

** 


:®AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 1S PUT DOWN THEN 
;*NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 ;FIRST ADDRESS OF TEST 
OPERSEL: 
CLR PS ;MAKE PROCESSOR STATUS ZERO 
MOV #-1,a#PRITEM ;CLEAR PREVIOUS ITEM NUMBER 
TYPE ,605$ :;TYPE ASCIZ STRING 


BR 64% ;;GET OVER THE ASCIZ 
37658: .ASCIZ <15><12>/THE PROGRAM WAS IN TEST NUMBER / 


MOV O#TSTNM,-(SP) ;GET READY TO TYPE TEST 
; NUMBER 


TYPE ,67$% 3; TYPE ASCIZ STRING 
BR 66% 3:;GET OVER THE ASCIZ 
gs eASCIZ <15><12>/THE LOOP BACK PC WAS / 
66$: 
MOV Q#SLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
TYPOC 
TYPE -SCRLF 
TYPE 69% 7: TYPE ASCIZ STRING 


BR 68$ 3;GET OVER THE ASCIZ 
3;69$: .ASCIZ <15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/ 


TYPE .71$ 7: TYPE ASCIZ STRING 
70$ 3;GET OVER THE ASC1Z 
53718: .ASCIZ <15><12>/TYPE THE FIRST PC OF THE TEST TO BE LOOPED ON/ 


TYPE ,73$ si; TYPE ASCIZ STRING 
BR 72$ ::GET OVER THE ASCIZ 
tes ~ASCIZ <15><12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 


2s: 
RDOCT 
ADD #2,(SP) 7GET LPADR 
MOV (SP)+, a#@$LPADR 
TYPE ,75$ s7 TYPE ASCIZ STRING 
BR 74% :;GET OVER THE ASCI2 


F 3 
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33758: .ASCIZ <15><12>/TYPE THE PC WHERE YOU WANT/ 
043314 74%: 


043314 104401 043322 TYPE ,77$ 23 TYPE ASCIZ STRING 
043320 000440 BR 76% ;GET OVER THE ASCIZ 
377%: .ASCIZ <15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15 
043422 768: 
043422 104412 RDOCT 
043424 012637 MOV (SP)+,Q#$LPERR ;GET LPERR 
043430 013746 MOV O#SLPADR,-(SP) 
043434 000002 RT] 


VV 


5 
5 
5 
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>*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
>*IN MEMORY LOCATIONS TAGED FROM ‘‘WwC'’ TO ‘'EC2"’ 


>*THIS 1S DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 


;*AND NOT THE REGISTERS THEMSELVES. 


THIS WILL MAKE 


;tERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


PUTREG: 
MOV RO,-(SP) 
MOV R1,-(SP) 


3;PUSH RO ON STACK 
:;PUSH R1 ON STACK 


MOV R2,-(SP) ;;PUSH R2 ON STACK 

MOV #RHWC,RO STARTING ADDRESS OF REG 

MOV #WwC,R1 ;STARTING ADDRESS OF WERE SAVED 

MOV WRHCC-RHWC4+2/2,R2 ;NUMBER OF REG. INTO R2 
10$: MOV a(RO)+,(R1)+ SAVE HARDWARE REG. 

DEC R2 

BNE 10$ 

MOV (SP)+#,R2 ;;POP STACK INTO R2 

MOV ($P)+,R1 3;POP STACK INTO R1 

MOV (SP)+,RO ;;POP STACK INTO RO 

RTS PC 


s*THIS 1S A DATA 
Pikes CALL IS 


3 JSR RO,a#RUN 

- C 

3*.BYTE S 

s* BYTE T 

;* ~W 

3 B 

if BAI 

sf FMT22'ECI!HCI 

‘* 

38 COM 

RUN: MOV (RO)+,Q@RHCA 
MOV (RO)+, @RHDST 
MOV (RO)+ ,aRHWC 
MOV (RO) +, @RHBA 
MOV O#UNIT,-(SP) 
BIS (RO)+, (SP) 
MOV (SP)+,aRHCS2 
MOV (RO)+ ,@RHOF 
MOV a(RO)*,AaRHCS1 
RTS RO 


COMMAND SETUP 


SUBROUTINE 


CYLINDER 


WORD COUNT 

;BUS ADDRESS 

:BUS ADDRESS INHIBIT 

sFMT22=1 =16 BIT WORDS 

EC] = ECC CORRECTION INHIBIT 
HC] = HEADER COMPARE INHIBIT 
;COMMAND ADDRESS 

CYLINDER 

DESIRED SECTOR/TRACK 

;WORD COUNT 

;BUS ADDRESS 

;GET UNIT NO 

;SET BUS ADDRESS INHIBIT 
;UNIT NO AND BA] TO RHCS2 
FORMAT, ECC INHIBIT, HEADER 
COMPARE, IF THERE 

;COMMAND IN RHCS1 

RETURN TO MAIN PROGRAM 
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;*THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


;*R1 HAS GOOD DATA BUFFER ADDRESS 

;*R2 HAS TEST DATA BUFFER ADDRESS 

;*RS HAS ADDRESS OF RETURN ON ae 

:*#R3 HAS NUMBER OF WORDS TO BE COMPARED 

;*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


s*CALL IS: 
ie JSR RO, a#COMPAR 
;* G :ADDRESS OF GOOD DATA 
;* T ;ADDRESS OF TEST DATA 
7* N sNUMBER OF WORDS TO BE COMPARED 
™ RE ;RETURN ON ERROR 
yf RG ;RETURN ON NO ERROR 
043542 COMPAR: 
043542 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
043544 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 
043546 010346 MOV R3,-(SP) >;PUSH R3 ON STACK 
043550 010446 MOV R4,-(SP) :;PUSH R& ON STACK 
043552 010546 MOV R5,-(SP) ::PUSH RS ON STACK 
043554 012001 MOV (RO)+,R1 ;ADDRESS OF GOOD DATA BUFFER 
043556 012002 MOV (RO)+,R2 sADDRESS OF TEST DATA BUFFER 
043560 012003 MOV (RO)+,R3 :NO OF WORDS TO BE COMPARED 
043562 012005 MOV (RO)+,R5 sRETURN ON ERROR 
043564 011000 MOV (RO) ,RO ;RETURN ON NO ERROR 
043566 010304 MOV R35,R4 sNO OF WORDS TO BE COMPARED 
043570 005204 INC RG 
043572 010437 004602 1$: MOV R4 ,a#ERWORD sFOR ERROR WORD NO 
043576 022122 CMP (R1)+,(R2)+ sCOMPARE GOOD WITH TEST DATA 
043600 001417 BEQ 2% s;BRANCH IF GOOD 
043602 014137 001124 MOV -(R1),a#$GDDAT ;GOOD DATA 
043606 014237 001126 MOV -(R2),a#$BDDAT ;BAD DATA 
043612 160337 004602 SUB R3,a#ERWORD sERROR WORD NO. 
043616 004715 JSR PC,aR5 ;RETURN TO PRINT ERRO 
043620 022122 CMP (R1)4#,(R2)¢ sUNDO -(R1) AND =-(R2) eon ERRORS 
043622 017746 135312 MOV aswR,- (SP) sGET SWITCH SETTING 
043626 042716 177177 BIC #*C600, (SP) ;KEEP ONLY SWITCH 7 AND 8 
043632 022726 000200 CMP #SwO7,(SP)+¢ :1S 7 SET AND 8 RESET 
043636 001402 BEQ 3$ BRANCH OUT IF YES 
043640 005303 2$: DEC R$ ; COUNT 
043642 001353 BNE 1$ : BRANCH IF ALL NOT DEVICE 
043644 3$: 
043644 012605 MOV (SP)+,R5 :;POP STACK INTO R5 
043646 012604 MOV (SP)+,R4 ;;POP STACK INTO R4& 
043650 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
043652 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
043654 012601 MOV (SP)+,R1 >;POP STACK INTO R1 


043656 000200 RTS RO RETURN TO MAIN PROGRAM 
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674 

675 

676 pe THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 

ort it ADDRESS FROM 176700 TO ANY TYPED VALUE 

679 043660 BASECH: 

680 043660 104401 043666 TYPE ,65$ pityee ASCIZ STRING 

1681 043664 000425 BR 64% GET OVER THE ASCIZ 

1682 ::65$: .ASCIZ O15><12>/PRESENT™ BASE ADDRESS OF REGISTERS IS / 
1683 043740 64$: 
1684 043740 013746 002300 MOV Q@WRHCS1,-(SP)  ;:GET READY TO TYPE OLD BASE 

1685 043744 104402 TYPOC 
1686 043746 104401 043754 TYPE ois :s TYPE ASC1Z STRING 

1687 043752 000425 BR GET OVER THE ASCIZ 

1688 ::67$: .ASCIZ eisoctaneteee NEW BASE ADDRESS FOLLOWED BY 'CR' / 
1689 044026 668: 
1696 044026 004737 045734 JSR PC ,a#STKINT INITIALIZE THE TTY KEYBOARD 

1691 044032 104412 RDOCT 
1692 044034 012700 002270 MOV #RHDB,RO :GET STARTING ADDRESS OF REGISTERS 
1693 044040 012701 000026 MOV #22.,R1 :NUMBER OF REGISTERS 

1694 044044 012737 044644 000004 MOV WADTIMO,aa4 :SET TRAP CATCHER TO CHECK THIS ADDRESS 
1695 044052 021637 002300 CMP aSP,a#RHCS1 :NEW ADDRESS? 
1696 044056 001407 BEQ 1$ :NO, OLD ONE JUST RETYPED. 
1697 044060 005776 000000 TST a0<SP) :OK, SO ACCESS THIS NEW ADDRESS 
698 044064 163716 002300 SUB a#RHCS1,aSP :GET THE ADDRESS OFFSET 

699 044070 061620 2$: ADD asP,(RO)+ :AND PLUG IT IN. 

700 044072 005301 DEC R1 ONE LESS REGISTER TO GO 

701 044074 001375 BNE 2% :BUT WE'RE NOT DONE YET. 

702 044076 1$: 

703 044076 104401 044104 TYPE ,69$ i TYPE ASCIZ STRING 

704 044102 000417 BR 68$ GET OVER THE ASCIZ 

705 +:69$: .ASCIZ <15><12>/PRESENT VECTOR ADDRESS IS / 

706 044142 68$: 

707 044142 013746 002266 MOV Q@#RPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 
708 044146 104402 TYPOC 

709 044150 104401 044156 TYPE ,71$ : 3 TYPE ASCIZ STRING 

710 044154 000437 BR 70$ :GET OVER THE ASCIZ 

711 ::71$: .ASCIZ <15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY ‘CR’ / 
712 044254 70$: 

713 044254 104412 RDOCT 

714 044256 012637 002266 MOV (SP) +, @#RPVEC ey VECTOR ADDRESS 

715 044262 104401 044270 TYPE 138 TYPE ASCIZ STRING 

716 044266 000416 BR 72% ‘GET OVER THE ASCIZ 

717 ::73$: .ASCIZ <15><12>/NEW BASE WILL REMAIN = / 

718 044324 72: 

719 044324 013746 002300 MOV a#RHCS1,-(SP) 

720 044330 104402 TYPOC 

721 044332 104401 044340 TYPE ,75$ : TYPE ASCIZ STRING 

722 044336 000416 BR 74% GET OVER THE ASCIZ 

723 ::75$: .ASCIZ NE VECTOR WILL REMAIN - / 

724 044374 74$: 

725 044374 013746 002266 MOV a#RPVEC,-(SP) 

726 044400 104402 TYPOC 

727 064402 104401 044410 TYPE ,77% ii TYPE ASCIZ STRING 

728 044406 000417 BR 76% :GET OVER THE ASCIZ 

729 £377%: .ASCIZ <15><12>/UNTIL PROGRAM IS RELOADED. / 
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044446 76$: 
044446 104401 044454 TYPE 79% si; TYPE ASCIZ STRING 
044452 000402 BR 78$ SIGET OVER THE ASCIZ 
3379S: .ASCIZ <15><12>/ / 
044460 788: 
044460 104401 044466 TYPE 81% ii TYPE ASCIZ STRING 
044464 000424 BR 20% 3GET OVER THE ASCIZ 
3;81$: .ASCIZ <15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/ 
044536 80$: 
044536 104401 044544 TYPE ,o5$ fbi ASCIZ STRING 
044542 000426 BR 82% sGET OVER THE ASCIZ 
3:83$: .ASCIZ <15><12>/PROGRAM WILL AUTOMATICALLY RESTART FROM / 
044620 82$: 
044620 012746 000200 MOV #RA,=-(SP) 
044624 104402 TYPOC 
044626 104401 044634 TYPE ,85$ si: TYPE ASCIZ STRING 
044632 000402 BR 84% 3:GET OVER THE ASCIZ 
3:85$: .ASCIZ <15><12>/ / 
044640 84$: 
044640 000137 9005012 JMP Q#BEGIN sRESTART, TO RUN ALL DRIVES 
044644 ADTIMO: 
044644 104401 044652 TYPE 05% the ASCIZ STRING 
044650 000426 BR 64% GET OVER THE ASCIZ 
=°658: .ASCIZ tee ee SELECTED ADDRESS DID NOT RESPOND! / 
044726 64%: 
044726 022626 CMP (SP)+,(SP)+ sRESTORE THE STACK 


044730 000137 043660 JMP @#BASECH ;AND DO THE WHOLE THING AGAIN! 
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ppeeeeeererrerrerererrererereerereeretereeeereneeereereetere rete 
044734 RPVECT: 
044734 104401 044742 TYPE ,605$ 7: TYPE ASCIZ STRING 
044740 000411 BR 64% 3:GET OVER THE ASCIZ 
3:65$: .ASCIZ /TRAPED FROM PC = / 
044764 64$: 
044764 104402 TYPOC ; TYPE FROM PC 
044766 012777 044734 135272 MOV #RPVECT ,@RPVEC sRESTORE TRAP RPOS VECTOR 
044774 000000 HALT ; CHANGE TO CONTINUE 


ppeeeeerereretererererrrteneteerereteeeeA eee RARER HeTeA eee Tee 
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-SBTTL SCOPE HANDLER ROUTINE 


ppeeeeeerererererereereerereeeeerererreteeeeereterererereeeeeeet 
>*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3*AND LOAD THE TEST NUMBER‘STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


ao 
Us 


2*SW14=1 LOOP ON TEST 

:*Swil=1 INHIBIT ITERATIONS 

3*SwO9=1 LOOP ON ERROR 

3 *Sw08=1 LOOP ON TEST IN SWR<7:0> 

7 *CALL 

;* SCOPE :;SCOPE=10T 
044776 SSCOPE: 
044776 104407 CKSWR 3: TEST FOR CHANGE IN SOFT-SWR 
045000 032777 040000 134132 18: BIT #B11T14,aSWR :;LOOP ON PRESENT TEST? 
045006 001111 BNE SOVER s:YES IF Swi4=1 

sMMAAASTART OF CODE FOR THE XOR TESTERMMAAA 
045010 000416 $XTSTR: BR 6% :;1f RUNNING ON THE ‘‘XOR'' TESTER CHANGE 

>: THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 

045012 013746 000004 MOV QMERRVEC,-(SP) :;SAVE THE CONTENTS OF THE ERROR VECTOR 
045016 012737 045036 000004 MOV #5$,aMERRVEC ::SET FOR TIMEOUT 
045024 005737 177060 TST #177060 >: TIME OUT ON XOR? 
045030 012637 000004 MOV (SP)+,Q@MERRVEC ;;RESTORE THE ERROR VECTOR 
045034 000463 BR $SVLAD ::G0 TO THE NEXT TEST 
045036 022626 5$: CMP (SP)+,(SP)+ ::;CLEAR THE STACK AFTER A TIME OUT 
045040 012637 000004 MOV (SP)+,Q@MERRVEC ;;RESTORE THE ERROR VECTOR 
045044 000423 BR 7$ :;LOOP ON THE PRESENT TEST 
045046 6$:;MH##0HEND OF CODE FOR THE XOR TESTERMAAAA 
045046 032777 000400 134064 BIT #B1T08,aSWR ;;LOOP ON SPEC. TEST? 
045054 001404 BEQ 2$ 3:BR IF NO 
045056 127737 134056 001102 CMPB aswR,STSTNM 3:0N THE RIGHT TEST? SWR<7:0> 
045064 001462 BEQ SOVER ;:BR IF YES 
045066 105737 001103 2$: TSTB SERFLG :;HAS AN ERROR OCCURRED? 
045072 001421 BEQ 3$ 7;BR IF NO 
045074 123737 001115 001103 CMPB SERMAX ,SERFLG >;MAX. ERRORS FOR THIS TEST OCCURRED? 
045102 101015 BH] 3$ 3;BR 1F NO 
045104 032777 001000 134026 BIT #B1T09,aSwR ::LOOP ON ERROR? 
045112 001404 BEQ 4% ;;BR IF NO 
045114 013737 001110 001106 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
045122 000443 BR SOVER 
045124 105037 001103 4$: CLRB SERFLG 3:;ZERO THE ERROR FLAG 
045130 005037 001212 CLR STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
045134 000415 BR 1$ s;ESCAPE TO THE NEXT TEST 7 
045136 032777 004000 133774 3%: BIT #B11T11,aSWR :; INHIBIT ITERATIONS? 
045144 001011 BNE 1$ ;:BR 1F YES 
045146 005737 001100 TST $PASS ::1F FIRST PASS OF PROGRAM 
045152 001406 BEQ 1$ 5 INHIBIT ITERATIONS 
045154 005237 001104 INC SICNT >; INCREMENT ITERATION COUNT 
045160 023737 001212 001104 CMP STIMES,.SICNT ::;CHECK THE NUMBER OF ITERATIONS MADE 
045166 002021 BGE SOVER :;BR 1F MORE ITERATION REQUIRED 
045170 012737 000001 001104 I$: MOV #1, $1CNT > ;REINITIALIZE THE ITERATION COUNTER 
045176 013737 045246 001212 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
045204 105237 001102 $SVLAD: INCB STSTNM >; COUNT TEST NUMBERS 
045210 011637 001106 MOV (SP), $LPADR ::SAVE SCOPE LOOP ADDRESS 
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11830 045214 011637 001110 MOV (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 

11831 045220 005037 001214 CLR SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
11832 045224 112737 000001 001115 MOVB #1, SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
11833 045232 013777 001102 133702 SOVER: MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER 

11834 045240 013716 001106 MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

11835 045244 000002 RT] 73 FIXES PS 

11836 045246 600004 SMXCNT: 4 ;;MAX. NUMBER OF ITERATIONS 


4 
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Be t24 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

11839 seeeererrerrerrereererererererterterereteneereeeeeReeeeAeeeA ee 
11840 SSTHIS ROUTINE IS USED 10 CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
11841 :*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
11842 s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
11843 :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
11844 : *REPLACED WITH SPACES. 

11845 > *CALL: 

11846 3* MOV NUM, -(SP) :;PUT THE BINARY NUMBER ON THE STACK 
11847 ;* TYPDS ::G0 TO THE ROUTINE 

11848 

11849 045250 STYPDS: 

11850 045250 010046 MOV RO,-(SP) :;PUSH RO ON STACK 

11851 045252 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 

11852 045254 010246 MOV R2,-(SP) 7;PUSH R2 ON STACK 

11853 045256 010346 MOV R3,-(SP) 7;PUSH R3 ON STACK 

11854 045260 010546 MOV R5,-(SP) 7;PUSH RS ON STACK 

11855 045262 012746 020200 MOV #20200, -(SP) 3:SET BLANK SWITCH AND SIGN 

11856 045266 016605 000020 MOV 20(SP) ,R5 ::GET THE INPUT NUMBER 

11857 045272 100004 BPL 1$ ::;BR IF INPUT IS POS. 

11858 045274 005405 NEG R5 7:MAKE THE BINARY NUMBER POS. 

11859 045276 112766 000055 000001 MOVB #'=,10SP) 7 :MAKE THE ASCI] NUMBER NEG. 

11860 045304 005000 1$: CLR RO :;ZERO THE CONSTANTS INDEX 

11861 045306 012703 045464 MOV #S$DBLK ,R3 :;SETUP THE OUTPUT POINTER 

11862 045312 112723 000040 MOVB a" ,(R3)+ :;SET THE FIRST CHARACTER TO A BLANK 
11863 045316 005002 2$: CLR R2 7;CLEAR THE BCD NUMBER 

11864 045320 016001 045454 MOV SDTBL(RO),R1 3;GET THE CONSTANT 

11865 045324 160105 3$: SUB R1,R5 77;FORM THIS BCD DIGIT 

11866 045326 002402 BLT 4% 7;BR IF DONE 

11867 045330 005202 INC R2 s: INCREASE THE BCD DIGIT By 1 

11868 045332 000774 BP 3$ 

11869 045334 060105 4$ ADD R1,R5 ;;ADD BACK THE CONSTANT 

11870 045336 005702 TST 7;CHECK IF BCD DIGIT=0 

11871 045340 001002 BNE 5$ :;FALL THROUGH IF 0 

11872 045342 105716 TSB (SP) :;STILL DOING LEADING 0'S? 

11873 045344 100407 BM] 7$ 2 3BR IF YES 

11874 045346 106316 5$: ASLB (SP) MSD? 

11875 045350 103003 BCC. 6$ >I BR 1F NO 

11876 045352 116663 000001 177777 MOVB 1(SP),-1(R3) 3: YES--SET THE SIGN 

11877 045360 052702 000060 6$: BIS #'0,R2 7;MAKE THE BCD DIGIT ASCI1 

11878 045364 052702 000040 7$: BIS #' ,R2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
11879 045370 110223 MOVB R2,(R3)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
11880 045372 005720 1ST (RO)+ 3; JUST INCREMENTING 

11881 045374 020027 000010 CMP RO,#10 >;CHECK THE TABLE INDEX 

11882 045400 002746 BLT 2$ 3:G0 DO THE NEXT DIGIT 

11883 045402 003002 BGT 8% 7:G0 TO EXIT 

11884 045404 010502 MOV R5,R2 ::GET THE LSD 

11885 045406 000764 BR 6$ 3:60 CHANGE TO ASCII 

11886 045410 105726 8$: TSTB (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
11887 045412 100003 BPL 9% 3;BR 1F NO 

11888 045414 116663 177777 177776 MOVB -10SP) ,-2(R3) >; YES--SET THE SIGN FOR TYPING 

11889 045422 105013 9$: CLRB (R3) ::SET THE TERMINATOR 

11890 045424 012605 MOV (SP)+,R5 ::POP STACK INTO RS 

11891 045426 012603 MOV (SP)+,R3 3;POP STACK INTO R3 

11892 045430 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
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11893 045432 012601 MOV (SP)+,R1 >;POP STACK INTO R1 
11894 045434 01260 MOV (SP)+,RO ;;POP STACK INTO RO 
11895 045436 104401 045464 TYPE , SOBLK ;;NOW TYPE THE NUMBER 
11896 045442 016666 000002 000004 MOV 2(SP) ,4(SP) >; ADJUST THE STACK 
11897 045450 012616 MOV (SP)+, (SP) 

11898 045452 000002 RTI ;;RETURN TO USER 
11899 045454 023420 $01BL: 10000. 

11900 045456 001750 1000. 

11901 045560 000144 100 

11902 045462 000012 10. 

11903 045464 000004 $DBLK: .BLKW 
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-SBTTL TYPE ROUTINE 
ppeeeeeeeereeereerereerereereeerereererererereeeeereneeeeeeereeet 
;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


045604 002770 BLT 6$ :;BR IF NO--GO POP THE NULL OFF OF STACK 
045606 004737 045644 JSR PC, STYPEC 3:;G0 TYPE A NULL 
045612 105337 045710 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
045616 000770 BR 7$ 3;LO0P 
;HORIZONTAL TAB PROCESSOR 
045620 16 000040 8$: MOVB #" , (SP) ; REPLACE TAB WITH SPACE 
37 045644 9$: JSR PC ,STYPEC si; TYPE A SPACE 
37 000007 045710 B11TB #7, SCHARCNT 3: BRANCH IF NOT AT 
A BNE oF 3; TAB STOP 
6 


045640 TST (SP)¢ 7;POP SPACE OFF STACK 


s*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
7 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*@ 
s*CALL: 
:*1) USING A TRAP INSTRUCTION 
e eOR TYPE »MESADR 3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
*® 
st TYPE 
7* MESADR 
7* 
045474 105737 001157 $TYPE: TSTB STPFLG 3718S THERE A TERMINAL? 
045500 100002 BPL 1$ 7;BR IF YES 
045502 000000 HALT >;HALT HERE IF NO TERMINAL 
045504 000407 BR 3$ 7; LEAVE 
045506 010046 1$: MOV RO,-(SP) 7; SAVE RO 
045510 017600 000002 MOV a2(SP),R0 3;GET ADDRESS OF ASCIZ STRING 
045514 112046 2s: MOVB (RO)+,-(SP) :;PUSH CHARACTER TO BE TYPED ONTO SACK 
045516 001005 BNE 4% ;;BR IF IT ISN'T THE TERMINATOR 
045520 005726 TST (SP)+¢ sz: 1F TERMINATOR POP IT OFF THE STACK 
045522 012600 60$: MOV (SP)+,RO > RESTORE 20 
045524 062716 000002 3$: ADD #2, (SP) ; ADJUST RETURN PC 
045530 000002 RT] :;RETURN 
045532 122716 000011 4$: CMPB WHT, (SP) > BRANCH IF <HT> 
045536 001430 BEQ 8&$ 
045540 122716 000200 CMPB @CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
045544 001006 BNE 5$ 
045546 005726 TST (SP)+ :;POP <CR><LF> EQUIV 
045550 104401 TYPE 7; TYPE A CR AND LF 
045552 001223 SCRLF 
045554 105037 045710 CLRB SCHARCNT 3;;CLEAR CHARACTER COUNT 
045560 000755 BR 23 7:GET NEXT CHARACTER 
045562 004737 045644 5$: JSR PC, STYPEC 3:60 TYPE THIS CHARACTER 
045566 123726 0061156 6$: CMPB SFILLC,(SP)¢ ::18 17 TIME FOR FILLER CHARS.? 
045572 001350 BNE 2% 77 1f NO GO GET NEXT CHAR. 
045574 013746 001154 MOV SNULL,-(SP) 7:;GET # OF FILLER CHARS. NEEDED 
>; AND THE NULL CHAR. 
045600 105366 000001 7$: DECB 1(SP) 3;DOES A NULL NEED TO BE TYPED? 
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;;GET NEXT CHARACTER 
>; WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
31S CHARACTER A CARRIAGE RETURN? 
;;BRANCH IF NO 

+s YES@-CLEAR CHARACTER COUNT 


sEXI 

ils CHARACTER A LINE FEED? 
RANCH IF YES 

::COUNT THE CHARACTER 

>; CHARACTER COUNT STORAGE 


SEQ 0249 
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045716 
045720 
000060 
000062 


133142 


001140 


045714 


TY INPUT ROUTINE SEQ 0250 
~SBTTL TTY INPUT ROUTINE 


ppeteeeererrerrererererererererererrerereeeeKeeeeeeenenereKeeeenee 


-ENABL LSB 

STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD 0 3; INPUT POINTER 

$TKQOUT: .WORD 0 ;;OUTPUT POINTER 

STKQSRT: .BLKB 9 3; TTY KEYBOARD QUEUE 
STKQEND=. 

-EVEN 


:*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
>*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 

;* JSR 

ie RETURN 

$TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKQSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE 


MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV MSTKSRV,QMTKVEC 3; INITIALIZE THE KEYBOARD VECTOR 


PC,STKINT 


MOV #200, a#TKVEC+2 ;;"'BR' LEVEL 4 

TST asTKB >; CLEAR DONE FLAG 

MOV #100,a$TKS : :ENABLE TTY KEYBOARD INTERRUPT 
RTS PC : RETURN TO CALLER 


s*TK SERVICE ROUTINE 

*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

;*1T IN THE QUEUE. 

>*1F THE CHARACTER IS A “‘CONTROL-C"* (“C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE “CONTROL C*' RESTART ADDRESS (OPERSEL) 


éTKSRV: MOVB a$TKB,-(SP) ::PICKUP THE CHARACTER 
BIC #*C177,(SP) ::STRIP THE JUNK 
CMP (SP) ,#3 3:18 11 A CONTROL C? 
BNE 1$ ; BRANCH IF NO 
TYPE »SCNTLC :; TYPE A CONTROL-C (*C) 
JSR PC, STKINT s: INIT THE KEYBOARD 
TST (SP)+ 3; CLEAN UP STACK 
JMP OPERSEL >; CONTROL C RESTART 

1$: CMP (SP) ,#7 3:18 17 A CONTROL G? 
BNE 2$ > ;BRANCH IF NO 
CMP #SWREG, SWR ::1S8 SOFT-SWR SELECTED? 
BEQ 6$ 3:G0 TO SWR CHANGE 

2$: 
CMP #9. ,STKCNT 3718 THE QUEUE FULL? 
BNE 3$ > ;BRANCH IF NO 
TYPE  SBELL > ;RING THE TTY BELL 
TST (SP)+ >;CLEAN CHARACTER OFF OF STACK 
BR 5$ peEXIT 

3$: CMP (SP) ,#23 s:18 11 A CONTROL=S? 
BNE 32% ;; BRANCH IF NO 
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TTY INPUT ROUTINE 


31$: 


32$: 


4$: 


5$: 


CLR astKs 3;DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP)+ 3;CLEAN CHAR OFF STACK 

TSTB astKs ;;WAIT FOR A CHAR 

BPL 31% ;;LOOP UNTIL ITS THERE 

MOVB a$TKB,-(SP) ;:GET THE CHARACTER 


BIC #*C177, (SP) ::MAKE IT 7-BIT ASCII 


CMP (SP)+,#21 231 IT A CONTROL-Q? 
BNE 31$ ;BRANCH IF NO 

att #100,a$TKS : :REENABLE TTY KEYBOARD INTERRUPTS 
INC STKCNT ;;COUNT THIS CHARACTER 
CMP (SP) ,#140 ;;1S 11 UPPER CASE? 

BLT 4% at IF YES 

CMP (SP) ,#175 1S IT A SPECIAL CHAR? 
BGT st :;BRANCH IF YES 

BIC #40, (SP ;;MAKE IT UPPER CASE 
MOVB (SP)+, aStKaIN + AND PUT IT IN QUEUE 
INC STKQIN ;UPDATE THE POINTER 
CMP STKQIN, #$TKQEND 3 +60 OFF THE END? 

BNE 5$ ;BRANCH IF NO 

MOV WSTKOSRT,STKQIN ::RESET THE POINTER 

RT] >; RETURN 


ppeeeeeeeeeeeeereerererererentererereeereeeeeeeeAeeeeeeKeA TATE 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

>*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


$CKSWR: 


CMP #SWREG, SWR 31S THE SOFT-SWR SELECTED 

BNE 15$ EXIT IF NOT 

TSTB astKs 7:18 A CHAR WAITING? 

BPL 15% s:1f NOT, EXIT 

MOVB a$TKB,-(SP) +3 VES 

BIC #*°C177, (SP) ::MAKE IT 7-BIT ASCII 

CMP (SP) ,#7 3:18 117 A CONTROL-G? 

BNE 2$ s;1F NOT, PUT IT IN THE TTY QUEUE 
3;AND EXIT 


ppeeeeereereeerrererrereereererereeetereeteeeeeeeeeeteeeeee tenes 
7*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY verre’ SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 


; *CONTROL- ae: TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
cM 


6$: SAUTOB, #1 :;ARE WE RUNNING IN AUTO-MODE? 
BEQ 2$ ;;BRANCH IF YES 
TST (SP)+ ;;CLEAR CONTROL-G OFF STACK 
JSR PC, STKINT s;FLUSH THE TTY INPUT QUEUE 
CLR astTKs ;;DISABLE TTY KEYBOARD INTERRUPTS 
MOVB #1,S$I1NTAG ::SET INTERRUPT MODE INDICATOR 
TYPE »SCNTILG 7;ECHO THE CONTROL-G (*G) 

$GTSWR: TYPE -SMSWR 3; TYPE CURRENT gph eet 
MOV SWREG,-(SP) ssSaNs SWREG FOR TYPEOUT 
TYPOC 3:G0 TYPE--OCTAL OSS SSAA, DIGITS) 
TYPE , SMNEW ;;PROMPT FOR NEW SWR 

19$: CLR - (SP) 3;CLEAR COUNTER 
CLR (SP) 7, THE NEW SWR 


SEQ 0251 
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CZRJID.P11 28-MAR-79 09:03 TTY INPUT ROUTINE SEQ 0252 
12086 046334 105777 132604 7$: TSTB asiKs 7;CHAR THERE? 

See 046340 100375 BPL 7$ 3; 1F NOT TRY AGAIN 

12089 046342 117746 132600 MOVB a$TKB,-(SP) ;;PICK UP CHAR 

Ot 046346 042716 177600 BIC #°C177, (SP) 7;MAKE IT 7-BIT ASCII 

12092 046352 021627 000003 CMP (SP) #3 3;1S 11 A CONTROL-C? 

12093 046356 001015 BNE 9$ ;;BRANCH IF NOT 

12094 046360 104401 046773 TYPE »SCNTLC 7;YES, ECHO CONTROL-C (“*C) 
12095 046364 062706 000006 ADD #6,SP >;CLEAN UP STACK 

12096 046370 123727 001135 000001 CMPB SINTAG,#1 >; ;REENABLE TTY KEYBOARD INTERRUPTS? 
12097 046376 001003 BNE 8$ ;;BRANCH IF NO 

12098 046400 012777 000100 132536 MOV #100, a$TKS 3;ALLOW TTY KEYBOARD INTERRUPTS 
Sites 046406 000137 042650 8$: JMP OPERSEL ;;CONTROL-C RESTART 

12101 

12102 046412 021627 000025 9$: CMP (SP) ,#25 3:18 IT A CONTROL-U? 

12103 046416 001005 BNE 10$ ;;BRANCH IF NOT 

12104 046420 104401 047000 TYPE eSCNTLU 7;YES, ECHO CONTROL-U (“U? 
12105 046424 062706 900006 208: ADD #6,SP >; 1GNORE PREVIOUS INPUT 

12106 046430 000737 BR 19$ 3;LET'S TRY IT AGAIN 

12107 

12108 

12109 046432 021627 000015 10$: CMP (SP) ,#15 7:18 11 A <CR>? 

12110 046436 001022 BNE 16$ ;;BRANCH IF NO 

12111 046440 005766 000004 TST 4 (SP) 7;YES, IS 17 THE FIRST CHAR? 
12112 046444 001403 BEQ 11$ ;;BRANCH IF YES 

12113 046446 016677 000002 132464 MOV 2(SP) ,aSWR 7; SAVE NEW SWR 

12114 046454 062706 000006 118: ADD #6,SP 7;CLEAR UP STACK 

12115 046460 104401 001223 148: TYPE , SCRLF 7;ECHO <CR> AND <LF> 

12116 046464 123727 001135 000001 CMPB SINTAG,#1 7;RE-ENABLE TTY KBD INTERRUPTS? 
12117 046472 001003 BNE 15$ ;;BRANCH IF NOT 

12118 046474 012777 000100 132442 MOV #100,a$TKS 7;RE-ENABLE TTY KBD INTERRUPTS 
12119 046502 000002 15$: RT1 ; RETURN 

12120 046504 004737 045644 16$: JSR PC, $TYPEC ;;ECHO CHAR 

12121 046510 021627 000060 CMP (SP), #60 7;CHAR < 0? 

12122 046514 002420 BLT 18$ ;;BRANCH IF YES 

12123 046516 021627 000067 CMP (SP) ,#67 :;CHAR > 7? 

12124 046522 003015 BGT 18% ;;BRANCH IF YES 

12125 046524 042726 000060 BIC #60,(SP)+ 7: STRIP-OFF ASCII 

12126 046530 005766 000002 TST 2(SP) 7:18 THIS THE FIRST CHAR 

12127 046534 001405 BEQ 17% 7;BRANCH IF YES 

12128 046536 006316 ASL (SP) 3:NO, SHIFT PRESENT 

12129 046540 006316 ASL (SP) >; CHAR OVER TO MAKE 

12130 046542 006316 ASL (SP) ;:; _ ROOM FOR NEW ONE. 

12131 046544 005266 000002 17$: INC 2(SP) >;KEEP COUNT OF CHAR 

12132 046550 056616 177776 BIS ~2(SP), (SP) ;;SET IN NEW CHAR 

12133 046554 000667 BR 7$ ;;GET THE NEXT ONE 

12134 046556 104401 001222 18$: TYPE , $QUES 77 TYPE ?<CR><LF> 

12135 046562 000720 BR 20% 3; SIMULATE CONTROL-U 

12136 -DSABL LSB 

12137 

12138 

12139 speeeeceerereeereersereerererenserereresarteesereseseeereerserees 
12140 s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
12141 3 *CALL: 
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12142 3* RDCHR 3:GET A CHARACTER FROM THE QUEUE 

12143 ;* RETURN HERE >; CHARACTER IS ON THE STACK 

12144 3* 3;WITH PARITY BIT STRIPPED OFF 

12145 : 

12146 

12147 046564 011646 SRDCHR: MOV (SP) ,-(SP) 3:PUSH DOWN THE PC AND 

12148 046566 016666 000004 000002 MOV 4(SP),2(SP) 7; THE PS 

12149 046574 005066 000004 CLR pep ot :;GET READY FOR A CHARACTER 

12150 046600 005046 CLR - 3;PUT NEW PS ON STACK 

12151 046602 012746 046610 MOV meat. -(SP) :;PUT NEW PC ON STACK 

12152 046606 000002 RT] 3;POP NEW PC AND PS 

12153 046610 64$: 

12154 046610 005737 045714 1$: TST STKCNT z:WAIT ON A CHARACTER 

12155 046614 001775 BEQ 1$ 

12156 046616 005337 045714 DEC STKCNT 7 ;DECREMENT THE COUNTER 

12157 046622 117766 177072 000004 MOVB a$TKQOUT,4(SP) + 3GET ONE CHARACTER 

12158 046630 005237 045720 INC $TKQOUT UPDATE THE POINTER 

12159 046634 023727 045720 045733 CMP $TKQOUT, #STKQEND. > DID 117 GO OFF OF THE END? 

12160 046642 001003 BNE 2$ >;BRANCH IF NO 

12161 046644 012737 045722 045720 MOV #STKQSRT,STKQOUT frye THE POINTER 

12162 046652 000002 2$: RTI >;RETUR 

12163 S ghbdueonpecdchasiiuenniedsinlrenennimnateiasiapnpnbannainia 

12164 s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

12165 s*CALL: 

12166 3* RDLIN >: INPUT A STRING FROM THE TTY 

12167 3t RETURN HERE > ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

der 3* >; TERMINATOR WILL BE A BYTE OF ALL O'S 
6 

12170 046654 010346 SRDLIN: MOV R3,-(SP) 77 SAVE R3 

12171 046656 012703 046762 1$: MOV ASTTYIN,R3 3:GET ADDRESS 

12172 046662 022703 046773 2$: CMP ASTTYINGD. RS ;;BUFFER FULL? 

12173 046666 101405 BLOS 4% ;;BR IF YES 

12174 046670 104410 RDCHR ::;GO READ ONE CHARACTER FROM THE TTY 

12175 046672 112613 MOVB (SP)+,(R3) 3:GET CHARACTER 

12176 046674 122713 000177 10$: CMPB #177, (R3) 3:18 11 A RUBOUT 

12177 046700 001003 BNE 3$ 7: SKIP NOT 

12178 046702 104401 001222 4$: TYPE ,SQUES s;TYPE A *?° 

12179 046706 000763 BR 1$ 3; CLEAR THE BUFFER AND LOOP 

12180 046710 111337 046760 3$: MOVB (R3),9% s:ECHO THE CHARACTER 

12181 046714 104401 046760 TYPE 9% 

12182 046720 122723 000015 CMPB #15,(R3)+ 7; CHECK FOR RETURN 

12183 046724 001356 BNE 2$ ;;LOOP IF NOT RETURN 

12184 046726 105063 177777 CLRB -1(R3) 3;CLEAR RETURN (THE 15) 

12185 046732 104401 001224 TYPE , SLF 3: TYPE A LINE FEED 

12186 046736 012603 MOV (SP)+,R3 > RESTORE R3 

12187 046740 011646 MOV (SP) ,-(SP) s;ADJUST THE STACK AND PUT ADDRESS OF THE 

12188 046742 016666 000004 000002 MOV 4(SP),2(SP) s2 FIRST ASCI] CHARACTER ON IT 

12189 046750 012766 046762 000004 MOV #STTYIN,4(SP) 

12190 046756 000002 RTI 7 ;RETURN 

12191 046760 000 9$: -BYTE O bis Teens FOR ASCI] CHAR. TO TYPE 

12192 046761 000 BYTE 0 >; TERMINATOR 

12193 046762 000011 STTYIN: .BLKB 9. 7 ;RESERVE 9. BYTES FOR TTY INPUT 

12194 046773 136 006503 000012 S$CNTILC: .ASCIZ /*C/<15>«12> >; CONTROL Si 

12195 047000 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> 7; CONTROL 3.4 

12196 047005 136 006507 000012 $CNTILG: .ASCIZ /*G/<15>«12> >;CONTROL ‘'G 

12197 047012 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
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-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


peeeerreeerererererererrreerreereeretetereeeeeeeeereeeeeeneeeee 
SSTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
> *CHANGE IT TO BINARY. 


:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


;*OCTAL DIGITS. 
> *FOLLOWED BY 
;*THEN BE RETYPED. 


1f AN ILLEGAL CHARACTER IS READ A ‘'?"’ WILL BE TYPED 
A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


;*CALL: 
7 RDOCT ;;READ AN OCTAL NUMBER 
i* RETURN HERE 3;LOW ORDER BITS ARE ON TOP OF THE STACK 
3* ;;HIGH ORDER BITS ARE IN $HIOCT 
SRDOCT: MOV (SP) ,-(SP) 3;PROVIDE SPACE FOR THE 
MOV 4(SP),2(SP) >; INPUT NUMBER 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV Ri,-(SP) 7;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
1$: RDLIN 3;READ AN ASCIZ LINE 
MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
MOV RO,5$ ;;AND SAVE IT 
CLR R1 7;CLEAR DATA WORD 
CLR R2 
2$: MOvVB (RO)+,-(SP) 3:PICKUP THIS CHARACTER 
BEQ 3$ s;1f ZERO GET OUT 
CMPB #'°0,(SP) >:MAKE SURE THIS CHARACTER 
BGT 3731S AN OCTAL DIGIT 
CMPB #'7,(SP) 
BLT 4% 
ASL R1 site 
ROL R2 
ASL R1 33%4 
ROL R2 
ASL R1 33*8 
ROL R2 
BIC #*C7, (SP) 3; STRIP THE ASCI] JUNK 
ADD (SP)+,R1 : ADD IN THIS DIGIT 
BR 2$ LOOP 
3$: TST (SP)+ >: CLEAN TERMINATOR FROM STACK 
MOV R1,12(SP) 3; SAVE THE RESULT 
MOV R2,$HIOCT 
MOV (SP)+,R2 :;POP STACK INITIO R2 
MOV (SP)+,R1 sor STACK INTO R1 
MOV (SP)+,RO sPOP STACK INTO RO 
RT] ;RETURN 
4$: TST (SP)+¢ 2 CLEAN PARTIAL FROM STACK 
CLRB (RO) ;SET A TERMINATOR 
TYPE >: TYPE UP THRU THE BAD CHAR, 
5$: -wORD 0 
TYPE , SQUES ti th ie! ie 
BR 1$ TRY GAIN 
$HIOCT: .wORD 0 77 H1GH witr BITS GO HERE 


Sy 


SEQ 0255 
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-SBTTL ERROR HANDLER ROUTINE 


peeeeerererererereererrreeeeeereeeeeeeeeeeeeeeeeeeeeeeereeeeeee 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 

;*THE SWITCH OPTIONS PROVIDED 8Y THIS ROUTINE ARE: 


7*Sw15=1 HALT ON ERROR 

> #SW13= 1 INHIBIT ERROR TYPEOUTS 

7*Swl0=1 BELL ON ERROR 

3*Sw09=1 LOOP ON ERROR 

> *CALL 

;* ERROR N 3; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
047174 SERROR: 
047174 104407 CKSWR 3; TEST FOR CHANGE IN SOFT=-SWR 
047176 REGSAV: 
047176 012737 177777 004734 MOV #-1,a#ESFLGS$ ;SET ERROR FLAG 
047204 REGSA1: 
047204 105237 001103 7$: INCB SERFLG +3SET THE ERROR FLAG 
047210 001775 BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
047212 013777 001102 131722 MOV STSTNM,@DISPLAY > :DISPLAY TEST NUMBER AND ERROR FLAG 
047220 032777 002000 131712 BIT #B1T10,aSWR ;:;BELL ON ERROR? 
047226 001402 BEQ 1$ ::NO - SKIP 
047230 104401 101216 TYPE ,SBELL 7:RING BELL 
047234 005237 001112 1$: INC SERTIL ;;COUNT THE NUMBER OF ERRORS 
047240 011637 001116 MOV (SP) ,SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
047244 162737 000002 001116 SUB #2, SERRPC 
047252 117737 131640 001114 MOVB QSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
047260 032777 020000 131652 BIT #B1T13,aSWR 3;SKIP TYPEOUT IF SET 
047266 001004 BNE 20$ 7:SKIP TYPEOUTS 
047270 004737 047344 JSR PC, SERRTYP 3;GO TO USER ERROR ROUTINE 
047274 104401 001223 TYPE » SCRLF 
047300 20$: 
047300 005777 131634 2$: TST aSwR 3;HALT ON ERROR 
047304 100092 BPL 3$ 3:SKIP IF CONTINUE 
047306 000000 HALT >;HALT ON ERROR! 
047310 104407 CKSWR 3: TEST FOR CHANGE IN SOFT=-SWR 
047312 032777 001000 131620 38: BIT #B1T09,aSwWR 3;LOOP ON ERROR SWITCH SET? 
047320 001402 BEQ 4% :;BR IF NO 
047322 013716 001110 MOV SLPERR, (SP) si; FUDGE RETURN FOR LOOPING 
047326 005737 901214 4$: TST SESCAPE 3: CHECK FOR AN ESCAPE ADDRESS 
047332 001402 BEQ 5$ 7;BR IF NONE 
nite! 013716 061214 $0 MOV SESCAPE,(SP) s:FUDGE RETURN ADDRESS FOR ESCAPE 
04734 : 


047340 000002 RT] > RETURN 
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1D.P11 28-MAR-79 09:03 ERROR HANDLER ROUTINE SEQ 0257 
12303 
12304 pes eeeeeerereerererrererereeeetereete 
12305 
iSgne -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
12308 s*THIS ROUTINE USES THE “ITEM CONTROL BYTE'’ (SITEMB) TO DETERMINE WHICH 
12309 s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
12310 stAND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
12311 7*1T 1S A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 
12312 s*W1TH ONLY MINOR CHANGES 
12313 s*FIRST 1F SWITCH 6 IS SET AND SWITCH 8 RESET THEN 
12314 s*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
12315 s*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 
12316 7*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 
eat ;*AND NOT THE ERROR MESSAGE AND HEADER. 
See 047342 000000 PRITEM: 0 s;PREVIOUS ITEM NO. LOCATION 
12321 047344 017746 131570 SERRTYP: MOV aSWR,-(SP) sGET SWITCH SETTING 
12322 047350 042716 177277 BIC #*C500, (SP) sKEEP ONLY SWITCH 8 AND 6 
12323 047354 022726 000100 CMP #SW06, (SP) + 71S 6 SET AND 8 RESET 
12324 047360 001001 BNE 1$ 71 NOT BRANCH 
12325 047362 000402 BR 2$ ;BRANCH IF SW 6 IS SET AND 8 RESET 
12326 047364 000137 050304 1$: JMP ae TYPERR ; JUMP IF SW 8 1S SET 
12327 sOR IF Sw 8 IS RESET AND Sw 6 IS RESET 
gees 047370 28: 
12330 047370 104401 047376 TYPE ,605$ 3: TYPE ASCIZ STRING 
12331 047374 000406 BR 64$ 3:;GET OVER THE ASCIZ 
12332 37658: .ASCIZ <15><12>/RHWC = / 
12333 047412 64$: 
12334 047412 013746 002354 MOV aawe,- (SP) ;GET READY TO TYPE RHWC CONTENTS 
12335 047416 104402 TYPOC 
12336 
12337 
12338 047420 104401 047426 TYPE 67% 77 TYPE ASCIZ STRING 
12339 047424 000406 BR 66% 3:GET OVER THE ASCIZ 
12340 3367$: .ASCIZ <15><12>/RHBA = / 
12341 047442 66$: 
12342 047442 013746 002356 MOV a#BA,-(SP) :GET READY TO TYPE RHBA CONTENTS 
12343 047446 104402 TYPOC 
12344 
12345 
12346 047450 104401 047456 TYPE ,O9$ 3; TYPE ASCIZ STRING 
12347 047454 000406 BR 68$ 3:GET OVER THE ASCI1Z 
12348 2:69$: .ASCIZ <15><12>/RHCS2 = / 
12349 047472 68$: 
12350 047472 013746 002360 MOV a#vCS2,-(SP) ;GET READY TO TYPE RHCS2 CONTENTS 
12351 047476 104492 TYPOC 
12352 
12353 
12354 047500 104401 047506 TYPE 71% 77 TYPE ASCIZ STRING 
12355 047504 000406 BR 70% ::GET OVER THE ASCI2Z 
12356 23718: .ASCIZ <15><12>/RHCS1 = / 
12357 047522 70$: 
12358 047522 013746 002362 MOV a#CS1,-(SP) 3GET READY TO TYPE RHCS1 CONTENTS 
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CZRJID.P11 28-MAR-79 09:03 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0258 
12359 047526 104402 TYPOC 

12360 

12361 

12362 047530 104401 047536 TYPE ,73$ 77 TYPE ASCIZ STRING 

12363 047534 000406 BR 72% 3:GET OVER THE ASCIZ 

12364 3:73%: .ASCIZ <15><12>/RHDS1 = / 

12365 047552 72%: 

12366 047552 013746 002404 MOV @4DS1,-(SP) ;GET READY TO TYPE RHDS1 CONTENTS 
12367 047556 104402 TYPOC 

12368 

12369 

12370 047560 104401 047566 TYPE 15% 3; TYPE ASCIZ STRING 

12371 047564 000406 BR 743% 3;GET OVER THE ASCIZ 

12372 3375$: .ASCIZ <15><12>/RHERI = / 

12373 047602 74%: 

12374 047602 013746 002364 MOV a#ER1,-(SP) ;GET READY TO TYPE RHER’ CONTENTS 
12375 047606 104402 TYPOC 

12376 

12377 

12378 047610 104401 047616 TYPE ,(7$ :: TYPE ASCIZ STRING 

12379 047614 000406 BR 76% 3:;GET OVER THE ASCIZ 

12380 3377$: .ASCIZ <15><12>/RHER2 = / 

12381 047632 76$: 

12382 047632 013746 002370 MOV a#ER2,-(SP) :GET READY TO TYPE RHER2 CONTENTS 
12383 047636 104402 TYPOC 

12384 

12385 

12386 047640 104401 047646 TYPE (9% si TYPE ASCIZ STRING 

12387 047644 000406 BR 78% ::GET OVER THE ASCIZ 

12388 3379$: .ASCIZ <15><12>/RHER3 = / 

12389 047662 78$: 

12390 047662 013746 002376 MOV a#ER3,-(SP) :GET READY TO TYPE RHER3S CONTENTS 
12391 047666 104402 TYPOC 

12392 

12393 

12394 047670 104401 047676 TYPE ,81$ :: TYPE ASCIZ STRING 

12395 047674 000406 BR 80% ::GET OVER THE ASCIZ 

12396 +381$: .ASCIZ <15><12>/RHDST = / 

12397 047712 80$: 

12398 047712 013746 002366 MOV a#DST,-(SP) :GET READY TO TYPE RHDST CONTENTS 
12399 047716 104402 TYPOC 

12400 

12401 

12402 047720 104401 047726 TYPE 83% >: TYPE ASCIZ STRING 

12403 047724 000406 BR 82$ ::GET OVER THE ASCI12Z 

12404 ::;83$: .ASCIZ <15><12>/RHCA = / 

12405 047742 82$: 

12406 047742 013746 002374 MOV aaCA,-(SP) sGET READY TO TYPE RHCA CONTENTS 
12407 047746 104402 TYPOC 

12408 

12409 

12410 047750 104401 047756 TYPE 85% >; TYPE ASCIZ STRING 

12411 047754 000406 BR 84$ :;GET OVER THE ASCIZ 

12412 ::85$: .ASCIZ <15><12>/RHAS = / 

12413 047772 84$: 

12414 047772 013746 062400 MOV a#AS,-(SP) :GET READY TO TYPE RHAS CONTENTS 
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CZRJID.P11 28-MAR-79 09:03 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0259 
12415 047776 104402 TYPOC 

12416 

12417 

12418 050000 104401 050006 TYPE 87% s; TYPE ASCIZ STRING 

12419 050004 000406 GR 86$ :;GET OVER THE ASCIZ 

12420 -:;87$: .ASCIZ <15><12>/RHOF = / 

12421 050022 B6S: 

92422 050022 013746 002372 MOV asOF ,-(SP) ;GET READY TO TYPE RHOF CONTENTS 
124623 050026 104402 TYPOC 

12424 

12425 

12426 050030 104401 050036 TYPE 89% 3; TYPE ASCIZ STRING 

12427 050034 000406 BR 88$ 3:GET OVER THE ASCIZ 

12428 3;89$: .ASCIZ <15><12>/RHMR = / 

12429 050052 88$: 

12430 050052 013746 002402 MOV aaMR,-(SP) sGET READY TO TYPE RHMR CONTENTS 
12431 050056 104402 TYPOC 

12432 

12433 

12434 050060 104401 950066 TYPE 91% :: TYPE ASCIZ STRING 

12435 050064 000406 BR 90$ ::GET OVER THE ASCIZ 

12436 27918: .ASCIZ <15><12>/RHLA = / 

12437 050102 90$: 

12438 050102 013746 0027420 MOV a#LA,-(SP) :GET READY TO TYPE RHLA CONTENTS 
12439 050106 104402 TYPOC 

12440 

12441 

12442 050110 104401 050116 TYPE 93% :: TYPE ASCIZ STRING 

12443 050114 000406 BR 92% ::GET OVER THE ASCIZ 

12444 3:93$: .ASCIZ <15><12>/RHCC = / 

12445 050132 92%: 

12446 050132 013746 002416 MOV avcc,-(SP) :GET READY TO TYPE RHCC CONTENTS 
12447 050136 104402 TYPOC 

12448 

12449 

12450 050140 104401 050146 TYPE 95% 37 TYPE ASCIZ STRING 

12451 050144 000406 BR 94% 3:GET OVER THE ASCIZ 

12452 3:95$: .ASCIZ <15><12>/RHEC1 = / 

12453 050162 94$: 

12454 050162 013746 002412 MOV avECl,-(SP) ;GET READY TO TYPE RHEC1 CONTENTS 
12455 050166 104402 TYPOC 

12456 

12457 

12458 050170 104401 050176 TYPE 97% sz TYPE ASCIZ STRING 

12459 050174 000406 BR 96$ :;GET OVER THE ASCIZ 

12460 37978: .ASCIZ <15><12>/RHEC2 = / 

12461 050212 96$: 

12462 050212 013746 002414 MOV a#vEC2,-(SP) sGET READY TO TYPE RHEC2 CONTENTS 
12463 050216 104402 TYPOC 

12464 

12465 

12466 050220 104401 050226 TYPE 99% si: TYPE ASCIZ STRING 

12467 050224 000406 BR 98% 3;GET OVER THE ASCI1Z 

12468 2;998: .ASCIZ <15><12>/RHDT = / 

12469 050242 98$: 


12470 050242 013746 002406 MOV a#DT,-(SP) ;GET READY TO TYPE RHDT CONTENTS 
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ERROR MESSAGE TYPEOUT ROUTINE 


1008 


C 
TYPERR: ; 


138: 


2$: 
3$: 
4$: 
5$: 


6$: 


7$: 


8$: 


, 101% 3; TYPE ASCIZ STRING 

100% 3;GET OVER THE ASCIZ 
<15><12>/RHSN = / 

@4SN,-(SP) ;GET READY TO TYPE RHSN CONTENTS 
aaPRITEM ;CLEAR PREVIOUS ERROR ITEM 
,$CRLF :""CARRIAGE RETURN’ & ‘LINE FEED" 
RO,-(SP) > SAVE RO 


7 SAV 
;PICKUP THE ITEM INDEX 


;1F ITEM NUMBER IS ZERO, JUST 
:TYPE THE PC OF THE ERROR 
SERRPC,-(SP) SAVE SERRPC FOR TYPEOUT 

SERROR ADDRESS 

;GO TYPE--OCTAL ASCIICALL DIGITS) 


RO 
a#$1TEMB,RO 
1$ 


10$ ;GET OUT 

RO ;ADJUST THE INDEX SO THAT IT WILL 
- ; WORK FOR THE ERROR TABLE 
R 

RO 

#SERRTB,RO ;FORM TABLE POINTER 


RO,a#PRITEM WAS PREVIOUS ERROR SAME 


13$ ;BRANCH IF NOT 

petra eer ;POP RO OVER EM AND DH 

RO, a#PRITEM ;SAVE NEW ERROR ITEM 

(RO)+,2$ ;PICKUP "ERROR MESSAGE'’ POINTER 
3$ SKIP TYPEOUT IF NO POINTER 


;TYPE THE “ERROR MESSAGE"' 


0 ;"ERROR MESSAGE'’ POINTER GOES HERE 
»SCRLF ;“"CARRIAGE RETURN’ & "'LINE FEED" 
(RO)+,4$ ;PICKUP "‘DATA HEADER’ POINTER 

5$ ;SKIP TYPEOUT IF 0 


;TYPE THE ‘DATA HEADER" 


0 7''DATA HEADER’ POINTER GOES HERE 
- SCRLF ;""CARRIAGE RETURN’ & "'LINE FEED" 
R1,-(SP) ;SAVE R1 

(RO)+,R1 ;PICKUP ‘DATA TABLE’ POINTER 

$ ;BR IF NO DATA TO BE TYPED 
(RO)+,RO :PICKUP "'DATA + pon POINTER 
(RO)+ S“OCTAL'' OR ''DECIMA 

7$ :BR IF DECIMAL 

a(R1)+,-(SP) SAVE @(R1)+ FOR TYPEOUT 


as 3GO TYPE=-OCTAL ASCII(ALL DIGITS) 


a(R1)+,-(SP) SAVE a(R1)+ FOR TYPEOUT 

GO TYPE--DECIMAL ASCI1 WITH SIGN 
(R1) :1S THERE ANOTHER NUMBER? 
9$ :BR IF NO 
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12527 050452 104401 050466 TYPE 11% sTYPE TWO(2) SPACES 
1s3e8 050456 000764 BR 6$ ; LOOP 
12530 050460 012601 9$: MOV (SP)+,R1 ;RESTORE RI 
12531 050462 012600 10$: MOV (SP)+,RO s""CARRIAGE RETURN’ & “LINE FEED"’ 
12532 050464 000207 RTS PC ; RETURN 
12533 050466 020040 000 11$: ASCIZ / / ;TWO(2) SPACES 
tn 050472 -EVEN 


51 


57 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2581 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


0 
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dD 5 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 263 


050715 


050715 
050717 
050714 


ERROR MESSAGE TYPEOUT ROUTINE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


M ;eeeerererererererrereeereeerereerereeeeeeeAeeeeteereKeeereeeeee 


:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYP 


E IT 
;*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


s*CALL: 

ie MOV NUM, -(SP) : ;NUMBER TO BE TYPED 

3t TYPOS 3;CALL FOR TYPEOUT 

3* -BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* BYTE M >;M=1 OR O 

bea ¢31=TYPE LEADING ZEROS 

;* 3; 0=SUPPRESS LEADING ZEROS 

*@ 


> *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


> *CALL: 

3* MOV NUM,-(SP) : NUMBER TO BE TYPED 
3* TYPON 3;CALL FOR TYPEOUT 
7* 

> + tpayicoempnae HERE FOR TYPEOUT OF A 16 BIT NUMBER 
> *CALL: 

3° MOV NUM ,=-(SP) : NUMBER TO BE TYPED 
3* TYPOC 3;CALL FOR TYPEOUT 


$TYPOS: MOV a(SP),-(SP) >:PICKUP THE MODE 
MOVB 1(SP) ,SOFILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) >; ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,S$0F ILL ;;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE+1 3;SET FOR SIX(6) DIGITS 
$STYPON: MOVB #5,SOCNT 3;SET THE ITERATION COUNT 
MOV R3,-(SP) 73 SAVE R3 
MOV R4,-(SP) 7: SAVE R4 
MOV R5,-(SP) 7; SAVE R5 
“Py SOMODE*1, RG 7;GET THE NUMBER OF DIGITS TO TYPE 
N 
ADD a6, R4 ;; SUBTRACT IT FOR MAX. ALLOWED 


MOVB R4, SOMODE 
MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 ;;PICKUP THE INPUT NUMBER 
CLR R3 ;;CLEAR THE OUTPUT WORD 


7;SAVE IT FOR USE 


1$: ROL R5 ;;ROTATE MSB INTO ‘'C’’ 
BR 3$ ;;60 DO MSB 

2$: ROL R5 3;FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R5 

3$: ROL R3 3;GET LSB OF THIS DIGIT 
DECB SOMODE or THIS DIGIT? 
BPL 7$ ;BR IF NO 
BIC #177770,R3 ;GET — OF JUNK 
BNE 4$ SITEST FOR 0 
TST RG >; SUPPRESS THIS 0? 


SEQ 0262 
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BINARY TO OCTAL (ASCII) AND TYPE 


BEQ 5$ 
4$: INC RG 
BIS #'0,R3 
5$ BIS "6 
MOVB R3,8$ 
TYPE ,8$ 
7$ DECB $OCNT 
BGT 
BLT 6$ 
INC RG 
BR 2 
6$: MOV (SP)+,R5 
MOV (SP)+.R4 
MOV (SP)+,R3 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RT1 
8$: -BYTE 0 
-BYTE 0O 
SOCNT: .BYTE 0 
SOFILL: .BYTE 0 
SOMODE: .wORD 0 


264 


7BR i YES 
‘DON T SUPPRESS ANYMORE 0'S 
3;MAKE THIS DIGIT ASCII 
3;MAKE ASCII IF NOT ALREADY 
3;SAVE FOR TYPING 
3:G0 TYPE THIS DIGIT 
;;COUNT BY 1 
:3BR 1F MORE TO DO 

;BR IF DONE 
>: INSURE LAST DIGIT ISN'T A BLANK 
+360 dO a pee DIGIT 


ee R 
;;SET THE STACK FOR RETURNING 


3 RETURN 

>;STORAGE FOR ASCII DIGIT 

3; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 

3;ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 


SEQ 0263 
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050770 
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010046 
016600 000002 
005740 
111000 
006300 
016000 050754 
000200 


011646 
016666 000004 000002 
000002 


050742 
045474 
050516 
050472 
050532 
045250 


046312 


046222 
046564 
046654 
047034 
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TRAP DECODER SEQ 0264 
-SBTTL TRAP DECODER 


ppeeeerererererererererererreeerererereteeeeeeetereeeterereereeTe 
>*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
>*AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7: SAVE RO 
MOV 2(SP),R0 3;GET TRAP ADDRESS 
TST =(RO) >;BACKUP BY 2 
MOvB (RO) ,RO 3;GET RIGHT BYTE OF TRAP 
ASL 0 ssPOSITION FOR INDEXING 


R ; 
MOV STRPAD(RO),RO ;;INDEX TO TABLE 
RTS RO ;;G0 TO ROUTINE 


7; THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$STRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) >;MOVE THE PSW DOWN 
RTI 7 ;RESTORE THE PSw 


-SBTTL TRAP TABLE 


7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 
$TRPAD: .WORD $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


$GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


SCKSWR >; CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT=SWR 
SROCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=RDLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
WAIT.T 3; CALL=WAT TRAP+13(104413) DONT ADD ABOVE THIS TRAP 
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aet -SBTTL POWER DOWN AND UP ROUTINES 

12661 ppeeeeerereerererrereerrrererreerrerereereeeetAtetetetteeeteTe eee 
12662 ;POWER DOWN ROUTINE 

12663 051004 012737 051150 000024 SPWRDN: MOV MSILLUP a#PWRVEC ;;SET FOR FAST UP 

12664 051012 012737 000340 000026 MOV #340 ,aM#PWRVEC+2 ;;PRIO:7 

12665 051020 010046 MOV RO,-(SP) 7;PUSH RO ON STACK 

12666 051022 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

12667 051024 010246 MOV R2,-(SP) >;PUSH R2 ON STACK 

12668 051026 010346 MOV R3,-(SP) >;PUSH R3 ON STACK 

12669 051030 010446 MOV R4,-(SP) 3;PUSH R4& ON STACK 

12670 051032 010546 MOV R5,-(SP) 7:PUSH RS ON STACK 

12671 051034 017746 130100 MOV aSwR,-(SP) 3;PUSH @SWR ON STACK 

12672 051040 010637 051154 MOV SP, SSAVR6 7: SAVE SP 

12673 051044 012737 051056 000024 MOV #SPWRUP, @#PWRVEC ;;SET UP VECTOR 

12674 051052 000000 HALT 

ip og 051054 000776 BR oe 7;HANG UP 

12677 ppeeeeeereeeeeeererererererereereereererereeeetAeeeeeeeeetereTs 
12678 ;POWER UP ROUTINE 

12679 051056 012737 051150 000024 $PWRUP: MOV #SILLUP ,aM#PWRVEC ;;SET FOR FAST DOWN 

12680 051064 013706 051154 MOV SSAVRO, sp 3:GET SP 

12681 051070 005037 051154 CLR SSAVR6 ;;WAIT LOOP FOR THE TTY 

12682 051074 005237 051154 1$: INC SSAVRO >; WAIT FOR THE INC 

12683 051100 001375 BNE 1$ 3;0F WORD 

12684 051102 012677 130032 MOV (SP) +, aSwR 3;POP STACK INTO aSwR 

12685 051106 012605 MOV (SP)+,R5 3;POP STACK INTO R5 

12686 051110 012604 MOV (SP)+,R4 3:POP STACK INTO R4 

12687 051112 012603 MOV (SP)+,R3 7:POP STACK INTO R3 

12688 051114 012602 MOV (SP)+,R2 3;POP STACK INTO R2 

12689 051116 012601 MOV (SP)+,R1 3:POP STACK INTO R1 

12690 051120 012600 MOV (SP)+,RO0 7:POP STACK INTO RO 

12691 051122 012737 051004 000024 MOV #SPWRON, a#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
12692 051130 012737 000340 000026 MOV #340, aM PWRVEC+2 7:PR10:7 

12693 051136 104401 TYPE ;REPORT THE POWER FAILURE 

12694 051140 051156 SPWRMG: .WORD SPOWER 7:;POWER FAIL MESSAGE POINTER 
12695 051142 012716 MOV (PC)+, (SP) ; RESTART AT BEGIN 

12696 051144 005012 $SPWRAD: .WORD BEGIN 3;RESTART ADDRESS 

12697 051146 000002 RT] 

12698 051150 000000 $ILLUP: HALT 7; THE POWER UP SEQUENCE WAS STARTED 
12699 051152 000776 BR 72 3; BEFORE THE POWER DOWN WAS COMPLETE 
12700 051154 000000 SSAVRO: 0 3:PUT THE SP HERE 


12701 051156 005015 047520 0425<7 $POWER: .ASCIZ <15><12>"'POWER”’ 
12702 051164 000122 
12703 EVEN 


0 


H 5 
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-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0266 


;eeereeerrererrerererererereereeeree 


-* 
;*ERROR AND MESSAGE TABLE CONDIMENTS 
-* 


° 
peetereerreerererererererrereeerenere 


050122 032060 042040 EMI: -ASCIZ = /RPO4 DID NOT INTERRUPT/ 


111 052116 051105 EM2: -ASCIZ /INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


051266 020124 044504 020104 
951274 047516 020124 042523 


051304 050122 032060 042040 EM3: -ASCIZ /RPO4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/ 
051312 042111 047040 052117 


051356 eee? 051440 052105 
051365 105 050130 041505 EMA: -ASCIZ /EXPECTED BIT DID SET BUT TIME IS IN ERROR (TIME IN 10 MICROSEC, DECIMAL 


051466 041505 046511 046101 
051476 044122 051501 042040 EMS: -ASCIZ /RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 


EMO: eASCIZ /LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 


051564 020061 047506 02 
051572 046101 020114 04 


2 
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CZRJID.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0267 


12760 051600 052111 020123 044504 
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EM7: -ASCIZ /NON EXISTENT REGISTER, PROGRAM ABORTED./ 


SAN 
Conn 
OUrw 
So 
uw 
a 
o 
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~ 
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71 051702 042105 000056 
73° 051706 052123 050117 042520 EM10: .ASCIZ /STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/ 


051744 042110 030523 051440 
051755 127 052111 020110 EM11: -ASCIZ /WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO. AND IR SET/ 
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~ 

So 

wn 
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ooo 
Wun 
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~_— © 
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90 052050 042116 044440 020122 


92 052062 043101 042524 020122 EMI2: .ASCIZ /AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/ 
793 052070 050123 047111 046104 
94 052076 020105 047520 042527 
95 052104 042522 020104 050125 
050040 
97 052120 041501 020113 041501 
98 052126 047113 020056 044122 
799 052134 051504 020061 044123 
12800 052142 052517 042114 044040 
12801 052150 053101 020105 047515 
12802 052156 036514 026061 053040 


12804 052170 044527 044124 051440 EM13: -ASCIZ /WITH SPINDLE POWERED UP, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, DvA=1, R 
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PRIMM NNR PYM NI NINN NI NINN PO MNP PEPE Po Pole fof fo fern n fern 


052264 026060 042040 04 
052272 030475 020054 04 
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J10.P 


052300 
052306 


036531 


026061 


042502 
041501 


047522 
047517 


046515 
047455 


047522 
047517 


046515 
053111 


047522 
047517 


020054 


MACY11 30A(1052) 


044440 


0 

051525 
020116 
006522 


020104 


047101 
ay 


006522 
020104 


02012? 
047101 


020105 
2 


020116 
006522 


020104 
043440 
051440 
020104 
042522 


EM14: 


EM15: 


EM16: 


EM17: 


J.5 
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POWER DOWN AND UP ROUTINES 


-ASCIZ 


-ASCI1 


-ASCIZ 


ASCII 


eASC12Z 


-ASCI1 


-ASCIZ 


/AFTER SPINDLE POWERED UP, RHCC SHOULD BE=0/ 


/PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


/NO-OP COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA 1S BEFORE COMMAND, REC DATA IS AFTER COMMAND / 


/DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/ 


SEQ 0268 


C 
C 


052756 


053006 
055011 


053422 
053430 


iw B etenad <b FCTNL CTLRI 


28-MAR-79 09:03 


020103 


043101 


040504 


051122 
046116 


042524 


MACY11 ye a a 


040524 
040515 


026504 
046517 
041440 
020104 
051122 


042040 


042116 
eg tah 


047522 
020061 
5 


047522 
020104 


020122 


EM20: 


EM21: 


EM22: 


EM23: 


5 
25-MAY-79 10:30 “PAGE 270 
POWER DOWN AND UP ROUTINES 


ASCII 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCII 


-ASCIZ 


/READ=IN COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. 


/RHCS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


/RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


/UNLOAD COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. 


CONT. 


SEQ 0269 


AFTER COMMAND/ 


AFTER COMMAND / 


CZRJIDO, RPOG/5/6 FCTNL CTLRI 
CZR Pil 28-MAR-79 09:03 


J10.P 


053436 


054120 


047503 


046511 


046515 
051506 
046517 
041440 
020104 
051122 


042117 


040515 
052105 


040515 
030060 


051120 


MACY11 gid ae 2 


047101 
acsate 


041440 
042116 


051125 
0 


042116 
peeey 


051122 
ott 


020104 
050117 


5 
25-MAY-79 10:30 pace 271 
POWER DOWN AND UP ROUTINES SEQ 0270 


EM24: «ASCII 
-ASCIZ 
EM25: -ASCI1 
-ASCIZ 
EM26: -ASCIZ 
EM27: -ASCII 


/OFFSET COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


/500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


mM 5 
RJIDO, RPOG/S/6 FCTNL CTLR1 MACYI1 30A(1052) 25-MAY-79 10:30 PAGE 272 
RJID.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0271 
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2984 054126 051105 051040 043505 
2985 054134 051511 042524 620122 
12986 054142 044103 047101 042507 


12988 054152 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 

12989 054160 052101 020101 044507 

12990 054166 042526 020123 044127 

12991 054174 052101 051440 047510 

12992 054202 046125 020104 042502 

12993 054210 052040 042510 042522 
11 


12995 054220 042522 042503 0531 -ASCIZ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


1 054264 052106 051105 041440 
2 054272 046517 040515 042116 
3 054300 000 

5 


054301 127 044522 aeSene EM30: -ASCIZ /WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/ 


S 


—CdOOnoufwun-oV0e~ 
So 
w 
* 
Ww 
o 
—— 
™~m 


054352 052502 043106 051105 
000 


122 040505 020104 EM31: .ASCI1 /READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 
054366 042510 042101 051105 
054374 040440 042116 042040 
054402 052101 020101 040503 
054410 051525 042105 044440 
054416 050115 047522 042520 
054424 020122 042522 044507 
054432 052123 051105 041440 
0 043516 006505 


TaD et et et et en at ot ot a 


0 

2 

7 047517 020104 «ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
4 040524 043440 

1 051505 053440 

0 020124 044123 

7 042114 041040 

5 wanies 051105 


3031 054515 122 041505 044505 -ASCIZ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


_ wa w 
o-oo OO — 


038 054566 047503 046515 
039 054574 000104 


P11 


054576 


J1DO, RPO4/5/6 FCINL C 
28-MAR-79 0 


051127 


5 
006505 


uw OS 


047101 
042117 


020104 
042510 


042503 


040515 


040505 
040524 


MACY11 gb 


042507 
042040 


042522 
053111 


042116 


020104 
044440 
042522 


N 5 
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POWER DOWN AND UP ROUTINES SEQ 0272 


EM32: .ASCIZ 
EM33: ASCII 
-ASCII 
eASCIZ 
EM34: .ASCIZ 
EM35: -ASCI1 
-ASCI1 





/WRITE HEADER DATA, FOLLOWED BY READ HEADER AND DATA, CAUSED DATA ERROR/ 


/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/READ DATA INCORRECT/ 


/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


CZRJID0, RPOG/5/6 FCTNL CTLRI 
10.P11 28-MAR-79 09:03 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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041505 


042510 
042503 


044505 


047101 
042040 


042522 
053111 


042502 


MACY11 30A(1052) 





-ASCIZ 


-ASCI1 


-ASCII 


~ASCIZ 


-ASCI1 


-ASCII 


25-MAY-79 
POWER DOWN AND UP ROUTINES 


~ASCIZ 






B 6 
PAGE 274 





10:30 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 











/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND/ 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


on 


wa 


RAN LESELESE 


S8eVsS 
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055756 052040 042510 042522 
055766 peseee 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


SEQ 0274 


055774 2105 042040 052101 
056002 020101 044507 042526 
056010 020123 042522 044507 
056016 052123 051105 041440 
056024 047117 042524 052116 
056032 020123 043101 042524 
056040 020122 047503 046515 
056046 047101 000104 

056052 047514 045503 047111 EM41: -ASCI1 /LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/ 
056060 020107 052517 020124 
056066 051127 052111 020105 
056074 054502 053440 044522 
056102 042524 046040 0415 
056110 020113 052502 052 
056116 047117 041440 052 


056162 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


056220 052040 042510 042522 
056230 042522 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 


056324 mere: 047440 052125 
056333 101 052124 046505 EM42: -ASCI] /ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 


056340 052120 047111 020107 
056346 047524 053440 044522 
056354 042524 053440 052111 
056362 020110 051127 052111 
056370 051505 046040 041517 
056376 042513 020104 052517 
056404 020124 040503 051525 
056412 042105 044440 050115 
056420 047522 042520 020122 
056426 042522 044507 052123 
056434 051105 041440 040510 
056442 043516 006505 012 
056447 107 047517 020104 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


CZRJ1 
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057142 
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040504 


052124 
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044522 
044522 


MACY11 "eed te 


043440 


051105 
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EM43: 
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POWER DOWN AND UP ROUTINES SEQ 0275 


eASCIZ 


»ASCI1 


-ASCII 


-ASCI1 


ASCII 


-ASCIZ 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 


/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12> 


/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE (WITH WRITE LOCKED OUT)/< 


/WAS ATTEMPTED/<15><12> 


/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


/(WITH WRITE LOCKED OUT) WAS ATTEMPTED/ 
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042105 
10 rahe EM44: ASCII] /ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1 


Ww 
mr 
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uw 
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uw 
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wu 
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0 
057261 107 047517 020104 «ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


WWANAw 


Ww 
wr 
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3282 057316 020105 seat 051105 
3284 057327 122 041505 044505 -ASCII] /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 


13293 057414 020113 052502 052124 


13295 057426 047105 041101 042514 eASCIZ /ENABLED WRITES/ 

13296 057434 020104 051127 052111 

13297 057442 051505 000 

13298 057445 126 040522 051516 EM45: .ASCII /TRANSFERRING ON LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12> 
057452 042506 051122 047111 

13300 057460 020107 047117 046040 

13301 057466 051501 020124 046102 

13302 057474 041517 020113 020055 

13303 057502 054503 044514 042116 


13307 057532 052040 040522 045503 

13308 057540 030440 006470 012 

13309 057545 103 052501 042523 -ASCI1 /CAUSED IMPROPER REGISTER CHANGE/<15><12> 
13310 057552 020104 046511 051120 

13311 057560 050117 051105 051040 

13312 057566 0435505 051511 042524 

13313 057574 020122 044103 047101 

13314 057602 042507 005015 

13315 057606 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
13316 057614 052101 020101 044507 

13317 057622 042526 0201235 044127 

13318 057630 052101 051440 047510 

13319 057636 046125 020104 042502 
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052040 
042506 


042510 
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042522 
053111 


006505 
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EM47: 
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-ASCIZ 


ASCII 


eASCIZ 
ASCII 


-ASCI1 


-ASCIZ 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 


/DATA READ FROM LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12> 


/1S IN ERROR/ 
/ TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12> 


/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


G 6 
MACY11 Ten ba 25-MAY-79 10:30 PAGE 279 
OWER DOWN AND UP ROUTINES SEQ 0278 


Oreste EMSO: -ASCI1 / TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12> 


tw RP04/5/6 FCTNL CILR 
1D.P11 28-MAR-79 09:0 
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-ASCI1 /GOOD DATA GIVES WHAT SHOULD Be THERE/<15><12> 


390 
391 060464 052040 042510 042522 
393 060474 040502 020104 040504 -ASCIZ /BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 


13400 060546 w+ 043123 051105 
13402 060555 107, 053111 047111 ~EM51: -ASCII] /GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12> 


13410 060634 020122 044103 047101 
13412 060646 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


a 
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060704 052040 042510 042522 
19 060714 042522 042503 0531 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 
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061002 041516 044524 047117 

061010 044440 020123 044507 
061016 042526 000116 

431 061022 051127 052111 020105 EMS2: LASCI1 /WRITE DATA COMMAND ON NONEXISTANT SECTOR CAUSED IMPROPER REG. CHANGE /<1 


MAW AUAnannww 
Po ot at oe ee et et ee 
WRN PPh wr 
SOONG WE WN 

So 
o 
o 
~“ 
oe 
o 
o 
~ 
So 
— 





CZRJ100, RPOS/5/6 FCTNL 
9 09:05 


CZRJID.P11 


061520 


28-MAR-7 
040504 


CTLRI 


040524 


042510 
042503 


051122 
052124 


H 6 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 280 
POWER DOWN AND UP ROUTINES 


047101 
042040 


042502 
042522 


053111 


051117 


046505 
020107 


042507 


042040 
044507 
044127 
047510 


EMS3: 


EMS4: 


-ASCI1 


-ASCIZ 


eASCIZ 


ASCII 


-ASCI1 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


notes 


SEQ 0279 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 


/READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


/ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


1 6 
CZRJIDO, RPOG/5/6 FCTNL CTLR1 MACYI1 30A(1052) 25-MAY-79 10:30 PAGE 281 
CZRJ1D.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0280 


13488 061526 046125 020104 042 
13489 061534 052040 042510 042 
3 


502 
aed 522 
13491 061544 042522 042503 05 101 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 
526 


NRMONNM—NwNOO 
NMA NA es 
ys 
Nm 
F 
o 
w 
Mm 
——- 

— 
oa 


101 
$11 000116 
aetii> Pease EMSS: -ASCII] /WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12> 
504 
111 


0 
13508 061712 020127 siete 047522 


012 
061723 103 052501 042523 -ASCI1 /CAUSED IMPROPER REGISTER CHANGE/<15><12> 
061730 020104 046511 051120 
061736 050117 051105 051040 
0617446 043505 051511 042524 
061752 020122 044103 047101 


0 
1 
2 
3 
5 
6 061764 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
7 061772 052101 020101 044507 
8 062000 042526 020123 044127 
9 062006 052101 051440 047510 
0 062014 046125 020104 042502 
1 062022 052040 042510 042522 


042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


PE AAAAMAMAA FUT 


WAAL AIA AAA GL 
Nm 
Nm 
oS 
o 
Nm 
oO 
w 
So 
So 
So 
uw 
o 
— 
w 


w 
Nm 
Ww 
o 
o 
™m 
oO 
w 
~™ 
So 
& 
Nm 
w 
~m 
Nm 


w 
wr 
oo 
oo 
oo 
Rr 
-o 
on nN 
So 
oo 
Mr 
oo 
et 
rer 
row 
oo 
wis 
Ow 
— —s 
-—o 
~nN— 
oo 
we 
—~ 
—w 
on 
wee 


6 
32 062120 040504 040524 dhs, EMS6: .ASCI1 /DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<15><12> 


PAA AA AA 
w 
= 
o 
o 
Nm 
St 
w 
* 
oS 
= 
> 
a 
Nm 
- 
So 
* 
o 
~ 
= 
o 
oO 
Nm 
oO 
—- 
7 
o 


WAAL AAI I 
MA 
err w 
uo O 

S 
o 
™m 
wm 
So 
So 
oO 
wm 
oO 
— 
Nm 
Nm 
oS 
w 


105 

511 
MN 042522 
543 062220 0475 122 047040 -ASCI1 /WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 10 266 SHOULD/<15><12> 





CZRJ1D0, RPOG/5/6 FCT 
CZRJID.P11 


13549 


a ee ee 
AA AAI AAW 
WIA 
uw 
&- 


uw 


WWM AA Att 
AN NNN 
DONO UEWN— 


| 


w 
w 
oo 
o 


062226 


062620 
062622 


062710 


28-MAR- 


000122 
052101 


042105 


046125 
020105 


047101 
042117 


042510 
042503 


051516 


042524 


044440 


J 6 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 282 
POWER DOWN AND UP ROUTINES SEQ 0281 


052040 


006504 
044103 


042507 
042040 


042522 


053111 
052101 


042506 


050115 


—EMS7: 


eASCIZ 
eASCII 


-ASCII 


-ASCI1 


-ASCIZ 


-ASCI1 


/BE CHANGED/ 
/ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12> 


/IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><i2> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTCD DATA TRANSFER/ 


/ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15>< 





K 6 
Sot RPO4/5/6 FCTNL CTLR1 = MACY11 pk a 25-MAY-79 10:30 PAGE 283 
CZRJ1O0.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0282 


062716 waa 042520 006522 
13602 062725 122 043505 051511 -ASCI1 /REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


13610 063004 052040 042510 042522 


13611 063012 005015 

13612 063014 042522 042503 053111 -ASCII1 /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15 
13613 063022 042105 042040 052101 

13614 063030 020101 044507 042526 

13615 063036 020123 042522 044507 

13616 063044 052123 051105 041440 

13617 063052 047117 042524 052116 

13618 063060 020123 043101 042524 

13619 063066 020122 050117 051105 

13620 063074 052101 047511 020116 

13621 063102 040527 020123 052101 

13622 063110 042524 050115 042524 

13623 063116 006504 012 

see5e 063121 117) 043111 -ASCIZ /MODIFYING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERR 


115 042 
3625 063126 044531 043516 051040 
13626 063134 043505 043440 053111 
13627 063142 051505 040440 042104 
13628 063150 042522 051523 047440 
13629 063156 020106 042522 044507 
13630 063164 052123 051105 041040 
13631 063172 044505 043516 046440 
13632 063200 042117 043111 042511 
13633 063206 020104 044127 041511 
13634 063214 020110 040503 051525 
13635 063222 042105 we? 051122 


13637 063253 122 041510 bathe EM61: -ASC1Z /RHCS1 HAS SOME INCORRECT STATUS BITS 0/ 


" 
~ 
. 
oO 
@ 
" 


13643 063276 020123 020075 026061 
13644 063304 047440 020122 020075 


13646 063314 044122 051504 aroese EM62: -ASCIZ /RHDS1 HAS SOME INCORRECT STATUS BITS = 1, OR = 0/ 


13652 063360 036440 030440 020054 
13653 063366 051117 036440 030040 


13655 063375 042110 030523 EM63: -ASCI1Z /RHDS1 CONTENTS DURING COMMAND WERE IN ERROR/ 


pie A neal FCTNL CTL 
28-MAR-79 


CZRJID.P 


13661 


et a at ot es 
Ww 

sesererseree 

NNN o 

WN —O OONOUE Ww 


063402 


064076 


041440 


051124 


09: 


042510 
042503 


051525 
047522 


030040 


MACY11 yoy b 


042524 


042522 
053111 


046515 
oo ige 


042105 
020122 


6 
25-MAY-79 10:30 * PAGE 284 


POWER DOWN AND UP ROUTINES - SEQ 0283 
EM64: -ASCI1 /RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 
-ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND / 
EM65: eASCIZ = /INTERRUPT FAILING/ 
EM66: -ASCII /HEADER AND DATA COMMAND FOR HEAD SELECTION TEST CAUSED/<15><12> 
.ASCI1 /ERROR - RHDST GIVES TRACK BEING WRITTEN OR READ ON CYL 0, SCTR 0/<15><1 


~m 
Wr OC OCOnOuUFwr ae 4 


A 6 
o, RPOG/5/6 FCTNL CTLRI = MACYI1 g ey 25-MAY-79 10:30 PAGE 285 
Pil 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0284 


064104 042522 042101 Reatse EM67: -ASCI1 /READ HEADER AND DATA ERROR IN HEAD SELECTION TEST./<12><15> 


064112 040505 042504 12 

064120 047101 020104 040504 

064126 040524 042440 051122 

064134 051117 044440 020116 

064142 042510 042101 051440 

064150 046105 041505 044524 

064156 047117 052040 051505 

064164 027124 006412 

064170 044506 051522 020124 -ASCI1 /FIRST FOUR WORD NUMBERS ARE THE HEADER./<12><15> 


064212 041115 051105 020123 
064220 051101 020105 044124 
226 020105 042510 042101 
064234 051105 005056 015 
064241 127 051117 020104 -ASCI1 /WORD NUMBERS 5 TO 260 ARE DATA WORDS,/<12><15> 
064246 052516 041115 051105 
064254 020123 020065 047524 
064262 031040 030066 040440 
064270 042522 042040 052101 
064276 020101 047527 042122 
064304 026123 006412 
064310 047101 020104 047111 -ASCIZ /AND IN DATA WORDS BITS 4,5,6,7,8 GIVE TRACK NUMBER. / 


064362 020113 052516 041115 
064370 051105 000056 


064374 042522 042101 eeetee EM70: -ASCI11 /READ HEADER AND DATA ERROR IN/<15><12> 


064424 051117 044440 006516 


064433 104 043111 042506 -ASCI1 /DIFFERENCE LINE TEST/<15><12> 
064440 042522 041516 020105 

064446 044514 042516 052040 

064454 051505 006524 012 

064461 127 051117 020104 -ASCII /WORD NOS 1-4 GIVE HEADER/<15><12> 
064466 047516 020123 026461 

064474 020064 044507 042526 


064502 044040 waa +i 042504 
064513 127 051117 020104 eASCIZ /WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/ 


064564 047 042504 020122 


Sortie: RPO4/5/6 FCTNL CTLRI 
P11 28-MAR-79 09:05 


CZRJID 


13768 
13769 
770 

71 


ee 


G0 G8.Gp G2 Go Go Go G2 Go Go G2 Go 
SCOOnNO UF WwN—O 


ee ae ae a et oe os = os os 

WALA AAA A 
hot es es 
— 


oo 
Nm 
Wh 


065250 


042101 


042510 


051104 
041522 


042525 
052501 


020104 
042510 


042503 


047101 
042117 


020104 
042510 


042503 


042522 


MACY11 ye ges 


051505 
eel! 


006523 
042523 
042524 
047101 
042040 


042522 
053111 


EM71: 


EM72: 


N 6 
25-MAY-79 10:30 PAGE 286 
POWER DOWN AND UP ROUTINES 


-ASCI1 


-ASCI1 


ASCII 


eASCIZ 


-ASCII 


ASCII 


-ASCI1 


~ASCIZ 


/FORCING OP] BY 3 INDEX PULSES/<15><12> 


/CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/ 


/WHILE USING UNIBUS B/<15><12> 


/READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


SEQ 0285 
















epee tess RPOG/5/6 FC AL / ILRI 

CZRJID.P11 2B-mAt -75 39:03 
3824 065256 0°210¢ 051105 041440 
25 065264 64651" 060515 042116 


Seses 
no 
4 
4 


5 
5 

510 042514 
3 6 
6 
2 


ww 
fo Je) 


065334 041516 sao +4 042522 
065345 127 044510 042514 


WAwuunw 
fii 
NOUS WN OSI UF UN—ODO 
So 
S S S 
w w w 
> w w 
«= ~ 
ya o 
oOo oO 
~ + 
So o 
— we 
oO 
e 4 
o Oo 
+ + 
o o 
w w 
Oo ~ 
w + 
o Oo 
wm x 
a = 
w 
tw = 
w oO 


4343333333; 


Go Go Oo 
wn & 
owow 
So 
o 
uw 
x 
~ 
~ 
So 
w 
Ww 
—_ 
_ 
_ 
So 
w 
_ 
uw 
So 
uw 
Oo 
w 
Ww 
ea 
F 
Oo 


3853 065514 020105 aa 051105 
3855 065525 122 041505 044505 


mood NwONOCO 


041040 





065736 005015 





MACY!1 30A(1052) 





8 7 
25-MAY-79 10: i PAGE 287 


POWER DOWN AND UP ROUTINE SEQ 0286 
EM73: -ASCIIT /WHILE USING UNIBUS B/<15><12> 
-ASCIZ /READ DATA INCORRECT/ 
EM74: -ASCII = /WHILE USING UNIBUS B/<15><12> 
«ASCII /WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 
-ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
~-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 
EM75: -ASCI1 /WHILE USING UNIBUS B/<15><12> 
-ASCIZ /WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 
EM76: -ASCI1] /WHILE USING UNIBUS B/<15><12> 











J10.P 


Oo 
—— 
-—oO 


ooonononov0ono 
ee ed at at ot 


WN —OOONOUSwr 


WAI A MAA 
ooO0D000 
SUNS 


eg et ee ee et ed et ot 
oO 
~m 
w 


066366 


066374 
066402 
066410 
066416 
066424 
066432 


RJ100, heed | FCTNL 


28-MAR-79 
051127 


052116 
051104 


040502 


MACY11 30A(1052) 


051105 
044505 


000123 
051505 
25 


020104 


EM77: 


—M100: 


7 
25-MAY-79 10:30 “PAGE 288 
POWER DOWN AND UP ROUTINES SEQ 0287 


-ASCII 


«ASCII 


-ASCIZ 


-ASCI1 


-ASCIZ 


~ASCIZ 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


/PRELOADING "RHCC" PRIOR TO DOING NEXT TEST DOES NOT PRODUCE CORRECT RES 


/THEREFORE NEXT TEST RESULTS ARE SUSPECT WITH REGARD TO ‘RHCC* CONTENTS/ 


ADDRESS PLUG CHANGE RESULTED IN BAD REGISTER DATA/ 





067032 


DO, RPO4/5/6 FCTNL CTLRI 
D.P11 


28-MAR-79 09:03 


042522 
0 


044507 
042040 


051525 


MACY11 30A 
PO 


051440 


051107 
046102 
053111 
046114 
041040 
042105 


EM101: 


EM102: 


EM103: 


EM104: 


NOUSE : 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


dD 7 
(1052) 25-MAY-79 10:30 PAGE 289 
WER DOWN AND UP ROUTINES 


/UNIT DID NOT GO OFFLINE WHEN ADDRESS PLUG REMOVED/ 


/UNIT NOT AVAILABLE AFTER ADDRESS PLUG REPLACED/ 


/REGISTER CONTENTS INCORRECT BEFORE A DIAG MODE SEEK/ 


/REGISTER CONTENTS INCORRECT AFTER A DIAG MODE SEEK/ 


/ PROGRAMMABLE-DRIVE WILL NOT BE USED/ 


SEQ 0288 





CZRJ1D0, RPOG/5/6 FCTNL CTLRI 
28-MAR-79 09:03 


CZRJ1D.P11 


067033 
0 


067272 


067273 


067450 


000124 


041510 
020040 


052116 


MACY11 30A(1052) 


006523 
044103 
047516 


041440 
042105 


020040 


030523 
020040 


020124 
047105 


CPHALT: 


DH1: 


gf 
25-MAY-79 10:30 PAGE 290 
POWER DOWN AND UP ROUTINES 


-ASCII 


eASCII 


-ASCI1 


-ASCIZ 


-ASCI1 


eASCIZ 


/FATAL ERROR = SEE DOCUMENT LISTING/<15><12><15><12> 


/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


/"READY’, BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


/WHICH CANNOT BE CLEARED/ 


/PC TEST WAT BIT REG REG RHCS1/<15><12> 


/ NO PC EXPECT ADDRESS CONTENT CONTENT/ 


SEQ 0289 


. F 
CZRJIDO, RPOG/S/6 FCTNL CTLR1 = MACY11 30A(1052) 25-MAY-79 10:30 PAGE 291 
CZRJ1D.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0290 


14037 067452 041520 020040 020040 DH4: eASCII /PC TEST WAT BIT REG TIME IN/<15><12> 


14044 067524 waa 044440 006516 
14046 067533 40 020040 020040 ~ASCIZ / NO PC EXPECT ADDRESS 10 MSEC/ 


14053 067604 wont 051515 041505 
14055 067613 120 020103 020040 DHS: »ASCII1 = /PC TEST REG GOOD RECEIVED/<15><12> 


14061 067656 wae 042526 006504 
14063 067665 040 020040 020040 ~ASCIZ / NO ADDRESS DATA DATA/ 


14068 067722 020040 042040 052101 
14070 067732 041520 020040 020040 DHé: -ASCII1 = /PC TEST REG RECEIVED/<15><12> 
14071 067740 020040 042524 052123 


14074 067762 042522 042503 053111 
14076 067774 020040 020040 020040 -ASCIZ / NO ADDRESS DATA/ 


14081 070031 120 020103 020040 DH7: -ASCIZ = /PC TEST REG ADDRESS/ 


14085 070060 040440 stag) 042522 


14087 
14088 070071 120 020103 020040 DH10: «ASCII /PC TEST FAILING CONTENT CONTENT CONTENT CONTENT/<15><12> 
14089 070076 020040 052040 051505 


70120 041440 047117 042524 


CZRJIDO, RPO4/5/6 FCTNL CTL 
CZRJ 


10 


P11 
070126 


070560 
070563 


070612 


28-MAR-79 09: 


052116 


943440 


041040 
020040 


047517 


MACY11 30A(1052) 


047117 


042524 
020040 


042510 
020040 
5 


042101 
020040 


DH26: 


DH30: 


DH51: 


25-MAY-79 


-ASCIZ 


ASCII 


-ASCIZ 


-ASCII 


-ASCI2Z 


-ASCI1 


/PC 


/PC 


6 7 
10:30 PAGE 292 
POWER DOWN AND UP ROUTINES 


NO 


TEST 


NO 


TEST 


NO 


TEST 


REG. 


CONT OF 


RHCS1 


WORD 


NO > 


REG 


RHCS1 


CONT OF 


RHCS2 


GOOD 


DATA 


GOOD 


SEQ 0291 


RHCS1 RHDS1 RHERI/ 


CONT OF CONT OF CONT OF CONT OF /<15><12 


RHDS1 =RHERI RHER2 RHER3/ 


BAD/<15><12> 


DATA/<15><12> 


RECVD ILLEGL/<15><12> 


VirWwnN—oO°o ab 4 


0, RPOG/5/6 FCTNL CTLRI 
PII 28-MAR-79 09:03 


070714 
070722 


SOOCOOCOCOOCCOOCOCOCOOCOOoOo 
SN NS NN NS NS NSS 
COWS FWnr——] SOnoouwes 
SONMMONE AS KON FS AOONG OM 


020040 
042126 


047125 
041520 


047117 


051040 
020040 
043505 


020040 


052103 


020040 
042524 


047111 


020040 
047040 


041510 
020040 


051504 


020040 
047040 


020124 


MACY11 yh ge 


041505 
044440 
006514 


020040 
020117 


000116 
020040 
3 


006507 
020040 


051040 


020040 
051505 


030523 
020040 


020040 


020040 
052123 
041520 
020040 
006461 


020040 
020117 
045040 
020040 

000 
020040 
051505 
041440 
020040 


25-MAY-79 


H 7 
10:30 PAGE 


POWER DOWN AND UP ROUTINES 


DH60: 


DHO1: 


DH62: 


DHOS: 


ASCLZ 


~ASCI1 


eASCIZ 


ASCII 


-ASCIZ 


-ASCI1 


-ASCI2Z 


-ASCI1 


/PC 


/PC 


/PC 


/PC 


NO 


TEST 


NO 


TEST 


NO 


TEST 


NO 


TEST 


293 


ADDRESS DATA 


REG 


ADDRESS DATA 


PC OF 


JSR 


PC OF 


JSR 


CONT 


DATA 
GOOD RECVD 

DATA 
RHCS1/<15><12> 
WAS/ 
RHDS1/<15><12> 
WAS/ 
CONT CONT 


FUNCTN/ 


MODF ING/<15><12> 


REG/ 


/<15>«12> 


SEQ 0292 


. 
CZRJ1D0, RPOG/5/6 FCTNL CTLR1 = MACY11 30A(1052) 25-MAY-79 10:30 PAGE 294 
CZRJID.P11 28-MAR-79 09:03 POWER DOWN AND UP ROUTINES SEQ 0293 


14205 071274 041440 047117 020124 

14206 071302 020040 041440 047117 

14207 071310 020124 020040 006440 

14208 071316 012 

14209 071317 040 020040 020040 eASCIZ / NO RHCS1 =RHAS RHDS1 = / 
14210 071324 020040 047040 020117 

14211 071332 020040 020040 051040 

14212 071340 041510 030523 020040 

14213 071346 051040 040510 020123 


14214 071354 020040 051040 Sohoas 
14216 071370 041520 020040 oeotee DH66: .ASCIZ /PC TEST RHDST RHER1 RHER2 RHERS RHCST = RHCS2/ 


14225 071456 020040 044122 051503 
14226 071464 000062 


14228 071466 041520 020040 BeSeet DH77: ASCII] /PC TEST PC OF REG. GOOD BAD/<15><12> 


14234 071532 020040 020040 049502 


2 
14236 071543 040 020040 020040 eASCIZ / NO JSR ADDR DATA DATA/ 
14237 071550 020040 047040 020117 
14238 071556 020040 020040 045040 
14239 071564 051123 020040 020040 
14240 071572 040440 042104 020122 
14241 071600 020040 042040 052101 
14242 071606 020101 020040 042040 
14243 071614 052101 000101 


14244 

a7 -EVEN 

4246 

14247 071620 001116 004604 041754 DTI: -WORD SERRPC,TSTINM,WAITPC ,WAITBT ,WAITRE ,SBDDAT,CS1,0 
14248 071626 041760 041756 001126 

14249 071634 002362 000000 

14250 071640 001116 004604 041754 DT4: -WORD SERRPC,TSTNM,WAILTPC WAITBT ,WAITRE ,SBDDAT ,wAITIM,0 
14251 071646 041760 041756 001126 

14252 071654 041762 000000 

14253 071660 001116 004604 004600 DT5: -WORD SERRPC,TSTNM,REGADR,SGDDAT,S$BDDAT,0 

14254 071666 001124 001126 000000 

14255 071674 001116 004604 004600 DT6: -WORD SERRPC,TSTNM,REGADR,$BDDAT 0 

14256 071702 001126 000000 

14257 071706 001116 004604 001200 ODI7: -WORD S$ERRPC,TSTNM,STMP1,0 

14258 071714 000000 


14260 071716 001116 004604 001122 D110: -WORD S$ERRPC,TSTINM,SBDADR,CS1,CS2,0S1,ER1,0 
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CZRJID.P11 


071774 
072002 
072010 


072012 


072104 
07211C 
072116 
072124 


072126 


072155 


072160 
072163 
072166 


072167 
072172 
072175 


072177 
972202 


072204 
072207 


072212 


002362 


001124 


001116 
001124 
000000 


001116 
004600 
000000 


002360 


001126 
004604 
001126 
004604 
001126 


004604 


000000 


004604 
001124 


ed 
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002404 
002362 


000000 
004600 
002464 
004600 
001122 
041560 
041560 
002362 


002362 


041560 
001126 


000 
000 


000 
001 


000 
000 
000 
000 
000 


000 
C00 


000 
000 


000 
000 


D126: 


D130: 


DT51: 


D160: 


D161: 
D162: 
D165: 
D166: 


D177: 


DF1: 


DF4: 


DFS: 
DF6: 
DF7: 


DF10: 


DF 26: 


DF 30: 


DFS1: 


DF60: 


. WORD 


«WORD 


- WORD 


«WORD 


«WORD 
«WORD 
- WORD 
- WORD 


«WORD 


-BYTE 


-BYTE 


-BYTE 
-BYTE 
BYTE 
-BYTE 


-BYTE 


-BYTE 


BYTE 


SERRPC,TSTNM,CS1,CS2,DS1,ER1,ER2,ER3,0 
SERRPC,TSTNM,ERWORD,$GDDAT , $BDDAT .0 


SERRPC, TSTNM,REGADR ,SGDDAT ,SBDDAT, ILLEGL,0 


SERRPC, TSTNM,REGADR,$GDDAT , SBDDAT , SBDADR,0 


SERRPC, TSTNM,PCJSR, SBDADR ,0 
SERRPC,TSTNM,PCJSR,SBDADR,0 
SERRPC,TSTNM,CS1,AS,DS1,0 
SERRPC,TSTNM,ER1,ER2,ER3.CS1,CS2,0 


SERRPC,TSTNM,PCJSR,REGADR,$GDDAT ,SBDDAT ,0 


0,0,0,0,0,0,0 
0,0,0,0,0,1,0 


0,0,0,0,0 
0,0.0,0 

0,0,0 
0,0,0,0,0,0.0 


0,0.0,0,0,0,9,0 


0,0,0,0,0 
0,0,0,0,0,0 


0,0,0,0.0,0 


SEQ 0294 
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CZRJID.P11 


072215 


072240 
072243 


072245 
072250 


072254 


000001 


K 7 
MACY11 50A(1052) 25-MAY-79 10:30 PAGE 296 
POWER DOWN AND UP ROUTINES 


000 
000 


000 
000 
000 
000 


000 
000 


DF61: 
DF62: 
DF65: 
DF 66: 
DF77: 


-EVEN 


- END 


-BYTE 
-BYTE 
-BYTE 
-BYTE 


-BYTE 


0,0,0,0 

0,0,0,0 
0,6,0,0,0 
0.0,0,0,0,0,0,0 


0,0,0,0,0,0 


SEQ 0295 
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CAT 020174 4736 47598 

CC 002416 20124 12446 

CHECK 041562 2934 3039 4175 4368 4997 5256 5311 111448 

CHECKC 041620 11148 39111548 

CHECKT 041604 3229 3543 3682 3798 3898 4575 4796 4969 5022 5325 5497 5644 5797 
5946 6108 6302 6467 6654 6808 7003 7168 7381 7571 7813 7980 8227 
Bes slits 8809 9102 9360 9443 9602 9697 9816 9934 10063 10190 10327 

CHREG 042404 2976 3106 3330 3343 3354 3361 3401 3412 3421 3428 3435 3853 3991 
4002 4012 4067 4290 4301 4462 4473 4893 4900 5202 5212 5455 5462 
5575 5582 9018 9025 9270 9277 §=©10552 10654 10666 106735 10819 113898 

CKSWR = 104407 11789 = 12270) 12293 126534 

CLAREA 041374 5743 5762 5911 6074 6248 6255 6263 6268 6415 6420 6428 6433 6610 


9497 502 9507 9517 47 9560 9568 
9987 9992 9997, 10026 10031 10238 10243 10248 10253 10258 10286 10291 10474 
CLDISK 041524 2547 2699 2734 2773 2833 2881 2930 3035 3161 3180 3225 3393 3539 
3590 3678 3749 3894 4130 4171 4364 4527 4546 4571 4749 4768 4792 
4965 4993 5307 5321 5614 5640 5672 5725 5907 6067 6241 6411 6603 


8343 8526 8 
9166 9310 9439 9479 9666 9784 9930 9970 10179 10231 10467 10586 10713 


CLR = 000040 1725# 11127 ‘ 

COMPAR 043542 5891 6037 6196 6394 6556 6746 6897 7095 7257 7496 7660 7907 8074 
8327 8488 8898 9133 9391 9764 10775 116398 

COMREG 042512 2987 3118 3375 3449 3728 3865 4079 4313 4485 4715 4910 5227 5476 


CPHALT 067033 2936 3041 3231 3545 3684 3800 3900 4177 4370 4577 4798 4971 4999 


8400 8647 
10065 10192 10329 10500 13983" 


CR = 000015 6748 11964 11974 

CRLF = 000200 6758 11935 11974 

CSF == 000002 18544 

Csu— = 000010 1856# 

C$! 002362 1998# 331 12358 14247 14260 14263 14280 14282 
CS2 002360 1995# 3290 6 12350 14260 14263 14282 

DB 002352 1992@ 

DCK = 100000 1795a 

DCL = 000100 19084 

DCLEAR 0024350 20244 3960 

DDISP = 177570 6814 8 2161 

DE1 = 000040 17678 

DFF20 = 000002 17634 

DFFS = 000001 17628 

DF I 072126 943 955 966 142908 

DF 10 072160 1020 1034 1048 1064 143028 

DF 26 072167 1183 1660 1672 1684 1696 14306# 

DF 30 072177 1204 1225 1239 1256 1317 1351 1375 1411 1447 1556 1567 1598 1617 


143108 
DF4 072135 979 142938 
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6348 6511 6700 6852 7049 7212 7426 7614 7859 8026 8273 8442 8695 
8853 8997 9249 9860 10107 10372 11165 


DFS 072144 989 1074 1086 1100 1114 1126 1134 1141 1151 1160 1171 1194 1215 
1233 1249 1267 1278 1292 1304 1329 1342 1364 1404 1423 1435 1460 
1503 1515 1581 1591 1609 1629 1648 142968 
DFS) 072204 1390 »= 143134 
DF6 072151 999 142984 
DF60 072212 1477 = 143168 
DF61 072220 1486 143184 
DF62 072224 1495 143204 
DF6S 072230 1527 14322a 
DF 66 072235 1545 143244 
DF7 072155 1007 =143004 
DF77 072245 1639 143284 
DH1 067273 936 948 960 140174 
DH10 070071 1012 1026 1040 1056 = 14088 # { 
DH26 070250 1175 1653 1665 1677 1689 141078 { 
DH30 070447 ay. 4 1221 1237 1254 1315 1349 1373 1409 1445 1554 1565 1596 1615 { 
DHS 067452 973 14037" { 
DHS 067613 984 1069 1081 1095 1109 1121 1132 1139 1149 1158 1169 1192 1213 { 
1231 1247 1265 1276 1290 1302 1327 1340 1362 1402 1421 1433 1458 { 
1501 1513 1576 1589 1607 1627 1643 =14055@ { 
DHS1 070563 1384 141444 { 
DH6 667732 995 140704 { 
DH6O 070722 1471 141624 { 
DH61 071057 1481 141794 { 
DH62 071152 1490 141904 { 
DH65 071245 1521 142014 { 
DH66 071370 1537 = 142164 { 
DH7 070031 1004 140814 { 
DH77 071466 1633 142284 | 
DIGB = 000004 17644 { 
DISPLA 001142 8838 2161" 2169* 11833" 12277* { 
DISPRE 000174 782 2169 { 
DLT = 100000 17354 { 
DL64 = 000020 17664 { 
DMD = 000001 17994 3162 3181 3252 3440 4528 4547 4750 4769 10969 { 
DOG 017420 4513 45378 { 
DPR = 000400 17704 2898 3095 3315 4681 4873 5160 5191 5441 5561 5843 5990 6152 { 
{ 
{ 
DRY = 000200 17694 2900 3095 3319 4655 4855 5197 5415 5535 5663 5686 8567 8979 { 
9192 9231 9474 9964 10225 11165 
DST 002366 2000# 12398 { 
DSWR = 177570 6804 882 160 { 
DS1 002404 20074 3315 3319 10972 10984 12366 14260 14263 #14280 { 
DT 002406 20084 2684" 4055 12470 { 
DTE = 010000 17924 
DTSY¥ = 001000 18054 
pT1 071620 942 954 965 14247# 
D110 071716 1019 1033 1047 1063 14260# 
D126 071736 1182 1659 1671 1683 1695 142638 
D130 071760 ee 1222 1238 1255 1316 1350 1374 1410 1446 1555 1566 1597 1616 
14266 
D014 071640 978 14250# 
p15 071660 988 1073 1085 1099 1113 1125 1133 1140 1150 1159 1170 1193 1214 
1232 1248 1266 1277 1291 1303 1328 1341 1363 1403 1422 1434 1459 










TLRI 
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1502 1514 
D151 071774 1389 = 142694 
DI6 071674 998 14255« 
D160 072012 1476 9142738 
D161 072030 1485 142768 
D162 072042 1494 14278" 
D165 072054 1526 §=142804 
D166 072070 1544 14282¢ 
DI7 071706 1006 914257" 
D177 072110 1638 142868 
DvA = 004000 1755# 8 2755 
6339 6502 

8844 8988 

ECH = 000100 17864 

EC] = 004000 18804 4297 
6452 6453 

7555 7799 

9095 9096 

10048 10049 

EC1 002412 20104 12454 
002414 20114 12462 

EMTVEC= 000030 769# 2145+ 
', 051166 934 12713 
EM10 051706 1010 9127734 
EM100 066374 1642 13930" 
EM101 066456 1651 13939" 
EM102 066540 1663 139484 
EM103 066617 1675 13956" 
EM104 066703 1687 =139654 
EM11 051755 1023. 12780" 
EMI2 052062 1937 =12792# 
EM13 052170 1051 12804# 
EM14 052312 1067 128184 
EM15 052365 1077 = 128264 
EM16 052526 1089 = 128444 
EM17 052654 1103 128604 
EM2 051215 946 127178 
EM20 053011 1117 12878" 
EM21 053155 1130 128964 
EM22 053230 1137 = 129044 
EM25 053305 1144 12912# 
EM24 053446 1154 12930" 
EM25 053611 1163 12948" 
EM26 053773 1174 =129684 
EM27 054063 1186 = 129784 
EMS 051304 958 127278 
EM30 054301 1197 = 13005# 
EM31 054361 1207 130144 
EM52 054576 1218 130404 
EM33 054705 1226 §=6130524 
EM34 055107 1236 §=—6. 130768 
EM35 055133 1242 13080# 
EM36 055351 1252 = 13105é 
EM37 055426 1259 «131134 
EMG 051365 969 127368 
EM4O 055643 1270 =131398 


MACY11 30A(1052) 





25-MAY-79 


B 8 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
1628 


1580 


10050 


2146* 


1590 


2295+ 


1608 


3317 
7040 
10098 


4664 
203 


7 
10363 


1647 


10492 





142530 

5141 5424 
7605 7850 
932 6092 
7152 7153 
re 8384 


2 
16608 10743 


10744 








SEQ 0299 | 
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LC 
CZRJ10.P11 28-MAR-79 0 
056052 


L 


Oe et ts ot o- 


EWN OWN 
SOONCOOUEWNOOMD OF 


—_ 
SNF ONNRSUNRONUS We 


A a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


13835¢ 


5667 10680 10972 10984 
2170" «2297 =62305* «=2340* 11795 11796" 11798* 11801* 


14282 


hRunhrnh ht ut 


FILL 
FILLRE 041426 
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CZRJIDO, RPOS/S/6 FCTNL CTLRI 
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9262 9632 9635 9638 vase 9731 9734 9873 9876 9879 10120 10126 
10385 10388 10391 10662 110708 

FINACC 004664 20684 11226* 

FINALA 004662 20674 11227* 

FIRST 004736 20954 2183 22208 

FISH 017454 4534 45578 

FLHEAD 041350 5733 5755 7721 7738 7759 7772 8134 8151 8172 8185 
8600 8760 9065 9323 9486 9553 110134 

FMT22 = 010000 18814 4295 4467 5594 5781 5782 5783 5930 5931 5932 6092 


8792 8793 8794 9095 9096 9097 9353 9 9586 9587 
9682 9800 9801 10048 10049 10050 10308 10309 10310 
10493 10607 10608 10609 10743 10744 10745 
FUTABL 002422 20204 
GNS = feeeer 781 2191 2195 2200 2204 2208 2213 2217 2272 2314 2329 
2417 2421 2425 2429 2486 2492 2498 2575 2579 2617 2623 
2668 2674 2704 2708 2712 2718 2855 2851 2887 2893 3276 
3308 3552 3556 3570 3576 3580 3607 3613 3649 3653 4150 
4988 5179 5245 5251 7447 7455 10540 10546 10807 10813 10870 
11530 11537 11541 11545 41552 11556 11682 11688 11705 11711) = «#11717 
11733-11737) 11741) 11747) 11753) 11764) 12332) 12340) = 12348 )=— 12356) = 12364 
12388 12396 12404 12412 12420 12428 12436 12444 12452 12460 12468 
12646 12647 12648 12649 12651 12653 12654 12655 12656 12657 
GO = 000001 17494 2960 3065 3473 3631 3710 3825 3961 4253 4266 4425 
4664 4845 4864 5006 5121 5141 5207 5267 5404 5424 5524 
5678 5812 5834 5961 5981 6123 6143 6317 6339 6482 6502 
6825 6843 7018 7040 7183 7203 7395 7417 7585 7605 7828 
8017 8242 8264 8413 8433 8557 8660 8684 8824 8844 8967 
9181 9219 9240 9375 946 9617 9712 9831 9851 9955 10078 
10343 10363 10513 10631 10759 10977 11251 
GRv = 000010 17654 
GTSWR = 104406 2227 = 126514 
HCE = 000200 17878 
HCI] = 002000 18794 4299 4471 5594 5783 5932 6094 6288 6453 6640 6794 
7555 7800 7966 8215 8384 8651 8794 9097 9355 9588 
10050 10310 10493 10609 10745 
HCRC = 000400 17884 
HT = 000011 6724 11933 11974 
HT. = 003325 29684 2973 3075# 3080 34828 3487 3640 3645 37184 3723 3833" 
3974 42748 = =4279 44468 4451 4653# 4658 4853# 4858 5014# 5019 
54134 5418 55334 65 5661# 5666 5684" 5689 58234 5828 59708 
6137 63284 6333 6491# 6496 6680# 6685 6832a 7 7029" 7034 
74068 7411 7594e 78398 7844 80064 1 8253« 5 84228 
86738 6 88334 8838 8977# 8982 9124e 9190# 9195 
9382a 94728 9477 9624 9629 971 9724 9840" 9962s 
10092 10223# 10228 10352# 10357 10521# 10526 10638# 10643 10766# 10771 
1AE = 002000 17904 
IE = 900100 1750# 2744 2783 4266 4438 4645 4664 4668 4669 4845 4864 


8 8967 8988 9 
9617 9712 9831 9851 9955 10078 10098 10216 10363 10363 
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Lf = =: 000001 17804 

ILLEGL 002464 20384 14269 

I1LR = 000002 17818 

INUNIT 004752 21054 3561* 3619 

1OTVEC= 000020 767H@ 2143 = 21448 

IR = 000100 1726# «2870 3996 4017 10650 10651 

1XE = 004000 18644 

KIPARO= 172340 8448 

KIPARI= 172342 8454 

KIPAR2= 172344 846" 

KIPAR3S= 172346 8478 

KIPAR4= 172350 8484 

KIPARS= 172352 8498 

KIPAR6G= 172354 8504 

KIPAR7= 172356 8514 

KIPDRO= 172300 8334 

KIPDRI= 172302 8344 

KIPDR2= 172304 835a 

KIPDR3= 172506 8364 

KIPDR4= 172310 8378 

KIPORS= 172312 8384 

KIPDR6= 172314 839" 

KIPDR7= 172316 8404 

LA 002420 20134 12438 

LBT = 002000 \772#@ = «111 

LF = 000012 6734 11968 11974 

LT. = 000105 29684 2973 3075# 3080 3482# 3487 36408 3645 37184 3723 38338 3838 39698 
3974 42748 = =4279 44468 4451 46538 4658 48534 4858 5014# 5019 52764 5281 
5413# 5418 55330 5661# 5666 5684" 5689 58234 5828 59708 61328 
6137 63284 6 64918 6680# 6685 68324 6837 70298 7034 7192# 87197 
74068 7411 7594 7599 78398 7844 8006" 801 82530 84228 8427 85654 
8570 86734 8678 8833# 8838 8977# 8982 9124# 9129 91908 9195 92298 9234 
93828 9387 94724 9477 96248 9629 9719# 9724 98404 9845 99628 9967 100878 
10092. = 10223# 10228 103524 10357 105214 10526 10638 10643 10766 10771 

MAKECY 041174 3163 3182 4529 4548 4751 4770 =10961# 

MCLK = 000002 18004 

MCPE = 020000 1756# 2909 3341 3410 

MHS = = 001000 18624 

MINX = 000004 18014 

MMVEC = 000250 8228 

MOL = 010000 17748 =2700 2714 2864 2896 3095 4156 4168 4681 4873 4980 5162 5163 
5193 5194 5441 5561 5843 5990 6152 6348 6511 6700 6852 7049 7212 
Ry 7614 7859 8026 8273 8442 8693 8853 8997 9249 9860 10107 10372 

6 

MPE = 000400 17288 

MR 002402 20064 12430 

MRD = 000020 18034 

MSE = 000020 1857# 

MSTCK = 000010 18024 

MWR = 000040 1804# 

MxF = 001000 17298 4000 

NED = 010000 1732# 3290 3359 3426 3600 

NEM = 004000 1731#@ 7442 

NHS = 002000 18634 

NOPERA 002422 20214 3688 


709 3805 3824 
127 


3 
NOPUSH 004724 20884 =2123" =«2127* =—2150" = 2 B42 3237 3525 4137 4951 10453 
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NOUNIT 004720 20848 2446" 2506" 2512 2518 2585" 108948 

NOUSE 066766 2475 139748 

NUNIT 004722 2086 2518" 2519" 3844 4020 4665 5142 5209 5425 5545 

OCYL = 100000 19114 

OF 002372 2002# 12422 

OFREV = 000200 18780 

OFSET 041510 5649111178 

OFSETC 002454 2034# 5383 5403 «5423. «565411118 | 

OFSTVL 004610 2060 5315* 5316" 5353 5618* 5619 S621* S622 

OF 100 = 000004 18738 

OF 200 = 000010 18748 

OF25 = 000001 18718 

OF400 = 000020 1875¢ 

OF50 = 000002 18720 

0F 800 = 000040 18768 

OPERSE 042650 11519# 12016 12099 

OPI = 020000 17938 

oR = 000200 1727# 10650 10651 

PAR = 000010 17834 4072 

PCJSR 041560 10963* 10964" 11142M 11144" 11145" 11150" 11151* 14276 14278 14286 

PCLBUF 002346 1972" 11250* 

PCLCSR 002344 1971# 11224" 112518 

PCLCTR 002350 1973#@ 11225 

PGE = 002000 17308 

PIP = 020000 17758 4681 4873.——s«sS5160 = «5191 5441 5561 = 8997 —- 9.249 

Pira = 177772 6798 

PIRQVE= 000240 7738 

PKACK 002460 20364 2938 2959 30463 3064 3085 3472 3630 5005 5266 

PLU = 020000 18668 

PRE = 000020 1906# 

PRITEM 047342 2263" 3010® 3586" 4336* 5254" 10848* 10893" 11521" 12319# 12481" 12498 12502« 

PROG = 001000 17718 

PRO = 000000 696# 

PR1 = 000040 697" 

PR2 = 000100 698" 

PR3 = 000140 6998 

PR4 = 000200 7008 

PRS = 000240 7018 

PR6 = -000300 702m 

PR? = - 000340 7030 

PSs = ‘177776 676# 677s 2175* «= 2743* «2782 «= zB37* 10866" 11520* 

PSEL = 002000 17548 7369 «7395S 7417,—Ss«s7559~—Ss7585)~=—S 760510316 = 10343 ~—«:10363 

Psu = 000001 1903e 

PSw = (177776 6778 

PUTREG 043436 3289. 3314 «= 3599.-««10971 1098311468 ~=—«115 76M 

PWRVEC= 000024 768H 2149 «2150 12663" 12664* 12673* 12679* 12691" 12692 

RA 000200 799" 11743 

RDCHR = 104410 12174 12654# 

RDLIN = 104411 12221 12655# 

RDOCT = 104412 2274 11547 11558 11691 11713 12656# 

RDY = 000200 1751# 27464 2755 2783 2911 086 3335 3720 3835 3971 4448 4664 4864 
5132, 5141 «5424.0 :5544 2S ‘5B25. 5972134 6330 = 6493 = 668268347031 7194 
7408 7596 7861 8008 8255 84246 8675 8835 8988 9126 9240 9384 26 
9721 9842 10089 10354 10523 10640 10768 11156 

READAT 002446 2031" 6095. 6122,Ss« 142454 64B1 = 6501-6795 = B22. OB42-s7155. 7182S 7202 
7556 7584 «= 7604 +«=«'10746~—:10758 
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READIN 002462 
RECAL] 002426 
REFOR 002450 
REGADR 004600 
REGSAV 047176 
REGSA1 047204 
REINTO 003534 
RELEAS 002432 
RESVEC= 000010 
RETCL 002456 
RHAS 002316 
RHBA 002274 
RHBAE 002340 
RHCA 002312 
RHCC 002334 
RHCS1 002300 
RHCS2 002276 
RHCS3 © 002342 
RHDB 002270 
RHDST 002304 
RHDS1 002322 
RHDT 002324 
RHEC1 002330 
RHEC2 002332 
RHER1 002302 
RHER2 002306 
RHERS 002314 


002336 


MACY11 "iaeat be 
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9866* 


9 
10104* 


e 
10113* 


8 
10369* 


8690+ 
10378* 


4886 


10994* 


7066 
10124 
11606* 

9011 


SEQ 0304 


8843 
5447* 


H 8 
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RHAR 002320 1954# 3162* 3181" 3252" 3436 4047 4528* 4547* 4750" 4769* 10969 

RHOF 002310 19504 4034 4291 4463 4698 5593-11117" «11613 

RHSN 002326 1957# 2625 2681 2683 

RHwC 002272 1940# 2945 3050 3257 3695 3753 3810 3906 3979 4179 4236 4372 4408 
4580 4632 4801 4832 5028 5106 5330 5389 5509 5791 5857 5940 6004 
6102 6166 6296 6362 6461 6525 6648 6714 6802 6866 6997 7063 7162 
7226 7375 7463 7565 7628 7807 7873 7974 8040 8221 8287 8392 8455 
8639 8707 8805 8867 8952 9204 9596 9633 9691 9729 9810 9874 10057 
10121 «10321 =: 10386 »=—s-110532) 10616 )»=—:10647) 110798 )=—:11075) Ss -11394 = 11477) 11580) )=—s-11582 = s:11608* 

RH70 004750 2103# 2234" 2324" 2326* 3842 3987 4249 4421 7316 =10186 

RH70CK 006150 22328 

RMR = 000004 1782# 

RPTRP1 011526 2740 27548 

RPTRP2 011634 2779 27938 

RPVEC 002266 1704# 82177 2739 2778 2951" 3056* 3701" 3816" 3952* 42462" 4414¢ 4637* 48378 


5112* 5395* 5515* 5803" 5952" 6114 6308 6473" 6660" 6814" 7009" 7174* 7387« 
7577* = 7819% 7986* 8233" 8404" 8549* 8651" 8815" 8958" 9108" 9172* 9210" 9366+ 
9454* 9608" 9703" 9822* 9946* 10069* 10207* 10333* 10504* 10622* 10750" 11707 11714* 


RPVECT 044734 2178 117614 11767 

RPOS 004746 21024 2602* 2608" 3143 3214 3507 

RP06 004744 21018 2592" 2599" 3141 3212 3505 4510 4733 

RP4VEC 004606 20554 2262" 2951 3056 3701 3816 3952 4242 4414 4637 4837 5112 5395 


7986 8233 8404 8549 8651 8815 8958 9108 9172 9210 9366 9454 9608 
RIN 006642 2331 23388 


RUN 043476 5771 5920 6083 6277 6442 6629 6783 6978 7143 7354 7544 7788 7954 
RH Weal 8619 8782 9085 9343 9576 9671 9789 10039 10299 10482 10598 
SAVER 041672 2944 3049 3256 3694 3809 4235 4407 4631 4831 5105 5388 5508 5790 


Nese 8638 8802 8951 9203 9595 9690 9809 10056 10320 10531 10615 10797 
SAVERE 004612 20634 2946 2989 3051 3120 3258 3368* 3369* 3377 3442* 3451 3696 3730 


3 9205 2 8 
10058 10136 10322 10400 10533 4 bee: 10617 10647" 10648" 10651* 10652* 10682* 10692 


SKI = 040000 1910" 


10799 10832, 11076* =11397* 11399" 1146 | 
sc =_: 100000 1758# 2909 3337 = 3406 = 38464007) 4022, 4671 4905) 5148 = 5217 5431 5460 

5551 5580 9030 9282 10659 
SC1_ = 000100 1840# | 
SC10 = 001000 18434 | 
SC2_ = 000200 18414 
$C20 = 002000 18448 
SC4 = 000400 18428 : . | 
SEECOM 002452 2033# 8966 8987-9218 «= 9239 = 9462 9954 = 10215. 10968 )=—-11109 
SEEKCY 041474 8947 9199 9451 994310204 11108" 
SELECT 004726 20908 = 2124" 2126* «2129 9 2268 = 522 2559 10882 
SELTST 010066 2411 25224 | 
SERCH 002434 2026# 11092 


SN 002410 2009# 2683" 4057 12478 

SND1 006112 21 22208 

SRCH 041454 110908 

SRO. = 177572: 826# 

SR1 = 177574 8278 

SR2 = 177576 8288 

SR3. = 172516 829" 

STACK = 001000 667H 2141 = 2294.~= 2352, 2544 =a 2732.—S 2771S 2830 = 3032S 3158 = 3177 = 3222S: 3536 


3675 3891 4127 4361 4524 4543 4568 4746 4765 4789 4962 5304 5637 


1 8 eS 
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5722 6064 6288 6600 6939 7306 7711 8124 8523 9163 9436 9927 10176 


10464 
START 005022 2125 2128 21338 
STKLMT= 177774 6788 
$11 032606 8536" 85798 8920* 8933 
$110 033210 8544" 87678 8928+ 
$111 033234 8545* 87808  8929« 
ST12 033470 8885 8888s 
S113 033474 8886 8896" 
ST14 033512 8902 8906" 
S115 133516 8903 8920" 
ST16 033604 8931 8933« 
$117 033610 8932 8940" 
$118 034040 9039 9042a 
$119 034044 9040 9056" 
ST2 032626 8537* 85904 89018 
$120 040414 108044 
$125 035676 98084 
$126 034230 9137 91414 
$127 034234 9138 91468 
$13 032640 8538* 85984  8922* 
S14 032660 8539* 86094  8923* 
$15 032672 8540" 86174 8924" 
S16 033100 8541" 8542" 87124 8925" 8926" 
S17 033146 8732 87348 
$18 033152 8733 87448 
$19 033170 8543* 87584  8927* 
SwR 001140 8824 2139 2160* 2162 2168* 2225 2232 2309 2386 2409 3517 = 11481-11661 
phe Licke 11806 §=6.11812) =—-11819 12019 12058 = 12113" 12278 12285 12290 12296 12521 
6 684* 
SWREG 000176 7834 8 2168 2225 12019 12058 12081 
swO = 000001 7318 
swOO = 000001 7218 731 
$wO1 = 000002 720# 730 
S$wO2 = 000004 7198 729 
$wO3 = 000010 7184 728 
$w04 = 000020 7178 727 
swOS = 000040 7168 726 
$w06 = 000100 715é 725. 12323 
$swO7 = 000200 7144 724 11483 11663 
$w08 = 000400 7138 723 
swO9 = 001000 7120 722 
Swi == 000002 730" 
$w10 = 002000 7118 
Sw11 = 004000 710# 
Swi2 = 010000 709# 2232 
SW135 = 020000 708# 2309 2386 2409 


J 8 434 
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sw14 = 040000 707" 

swiS = 100000 7064 

Sw2 = 000004 7298 

Sw3 = 000010 7288 

Sw4 = 000020 727 

Sw5 = 000040 7264 3517 

SW6 = 089100 725 

SW7 =: 000200 724m 

SWB = - 000400 7238 

Sw9 = =: 001000 722a 

TBITVE= 000014 7648 

TDF = 000040 18588 

TESTAD 042646 115188 

TIMCNT 042222 2746 «=. 2785S «11266 )S11271Ss«411332H «11346 «11351 

TIME) 041724 112248 

TIME2 041736 2262-11226" 

TKVEC = 000060 771" 11996* 11997 

THPO 004754 21120 

TMP1 004756 21138 5635*  5690* 

THP4 004760 2114# 6667* 4668" 4670 5146" 5145" 5147 5161" «5162* «5164 «= 5192" = 5193* = 195 
5427* 5428* 5430 5547" 5548* 5550 

™ = 000050 25448 2565 28308 2831 3032 3033 3222# 3223 35368 3537 3675 3676 38918 
3892. 4127# 4128S 361H 4362 508M «4569 «= 4789") «=4790 Ss 4962" «4963 = 53048 ~=—-55305 
5637" 5638 5722" 5723 6064" 6065 62388 6239 6600 6601 69398 6940 7306# 
7307, 7711#~=—7712,—Ss«B 24H) B125.—s«BS 23H) 8524 = «9163H@ 91649436 = 9437 = «9927 = 99.28 
10176# 10177 10464# 10465 

TOTALA 004742 2099# 2402" 2604" 3779 3932 4042 4209 4606 5078 5365 

TPVEC = 000064 772m 

TRAPVE= 000034 770# «=. 2147" «2148 = 21768 

TRE = 040000 1757" 2909 3339 3408 10661 

TRK1 = 004000 1845 

TRK10 = 040000 18484 

TRK2 = 010000 1B46 

TRK20 = 100000 1849" 

TRK4 = 020000 1B47# 

TRP 006602 2323 23320 

TRIVEC= 000014 7658 

TSTINM 004604 20544 2293* 23538 2382 2545" 2698 2731" 27708 2831% 3033" 3159* 3178* 3223 
3537" 3676" «3B92* «4 12B* «4362 4525" 4544" «569% «= 747* 4760" «7908 «= 963% 5.3058 
5638" 45723" «6065* «= 239% «= H01* «6940 «7307 «= 7712e «= B125* «= 524" «= 9164" «= «9437* «499.28 
10177* 10465" 11526 14247 14250 14253 14255 14257 14260 14263 14266 14269 14273 
14276 14278 14280 14282 14286 

1S11 006314 2269 2281. «= 2291# 10942 

TST10 011644 2791 28298 

TST11 012426 2851  3024# 

TST12 012706 3157" 

TST13. 012746 3148 31768 

1ST14 013002 3169 32084 

1S115 014014 3218 32460233242 35018 

TST16 015022 314535113519 35384887 

1ST17 015460 3890" 

1ST2 006656 2350« 

1S120 016246 41268 

1$121 017012 4146 43608 

1$122 017340 45238 

1$123 017420 4542a | 


K 8 
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TS124 9017454 45678 


TST34 4 ©=—024214 60634 

TST35 024530 62378 

TST36 = 0025440 65998 

TST37 026300 69388 

TST4 010102 2523 25414 10891 10902 

TST40 =©027210 73048 

TST41 030360 7318 77108 

TST42 031370 81234 

TST43 = 0032420 85224 

TST44 034234 9162a 

TST45 034740 9435a 

TST46 §=036114 99268 

TST47 036630 101754 

TST5 011070 26978 

TS150 037376 10188 10448" 

TST51 040622 10462 = 108644 

TST6 011434 701 272 

TS17 011544 2752 2756 27684 

TuF = 000100 18594 

TYPDS = 104405 2474 2489 2505 2620 2858 2890 3279 3305 3573 3610 4154 4165 5248 
10543 10810 10873 10879 10889 10931 12524 12649# 

TYPE = 104401 2189 2193 2198 2202 2206 2211 2215 2270 2312 2327 2334 2388 2415 


et et et ed ot 

Nnrnnnnnn 

eee 

WWAWN Www rere 

Wwn—-oOo NOW 

ooooo°ooo 

SON SSssss 

WWNOACOCOOO 

We NIN 

NW NWA 

AEMONOLS 

kar ee ear ee ee 

aoe oownn~s 

ONO LWOe 

—WWOC ooru 

2 2B 
www fr 
NOW WG 
_ rWwo @ 
w oO —fNm oO 
. za aR 


8400 8647 8811 9104 9362 9445 9604 9699 9818 
9936 10065 10192 10329 10500 10538 10544 10805 10811 10868 10874 10887 10890 
10929. 10932): 11522) s-11528)=—-11534 11535-11539) 11543) 11550-11554 = 11680): 11686 )=)—-11703 
11709 «117 11721. «-11727)-—«-11731)0 117350 11739) 11745-11751) 11762) 11895-11938 = 12013 
12025 12079 12080 12083 12094 12104 12115 12134 12178 12181 12185 12250 12252 
12280 12288 12330 12338 12346 12354 12362 12370 12378 12386 12394 12402 12410 
12418 12426 12434 12442 12450 12458 12466 12474 124683 12505 12507 12510 12512 
12527 12597 12645# 12693 
TYPERR 050304 12326 §612482# 
TYPOC = 104402 2319 2495 2626 2632 «11527-11533. 11685) 11708) )=—- 11720) 11726) 11744) 11766 =) 12082 
12335 123463) 12351) -12359) 12367-12375) 12383) 12391-12399 12407) 1241512425 12431 
12439 124647 124655 12463 12471 12479 12491 12520 126468 
TYPON = 104404 126484 
TYPOS = 104403 12647# 
UBUSB vot vere 7321* 7444* 10196 
UNIB = 
UNIT 004716 2083@ 2276" 2282" 2517" 2524" 2553 2584* 2587 2619 2857 2869 2889 ? 
3304 3561 3572 3587* 3588 3609 3619 3985 4153 4164 5247 10542 10809 
10872 =10896 = 10901" =11128 =11610 
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UNITS 004676 20824 2440 2444 2517 2566 810897 

UNITSL 004730 20918 2277" 2282 2524 

UNLOAD 002424 20224 5099 5120 5140 

UNS = 040000 17948 

UPE = 020000 17334 

US1 = 000001 17204 

US2 = 000002 17218 

US4 = 000004 1722a 

uwR = 000010 1905# 

vuF_ = 000002 19044 

vu30 = 010000 18654 

vv = 000100 17684 2902 2970 2981 3077 3095 3111 3352 3484 3642 4276 4306 4478 
4681 4873 4980 5016 5162 5163 5193 5194 5278 5441 5561 5843 5990 
6152 6348 6511 6700 6852 7049 7212 7426 7614 7859 8026 8273 8442 
8693 8853 8997 9249 9860 10107 10372 11147 11165 

WAITBT 041760 11247# 11260" 11267 11272 11341* 11347 11352 14247 14250 

WAITPC 041754 112465# 11257" 11258" 11338" 11339" 14247 14250 

WAITRE 041756 11246# 11259" 11267 11272 11276 11288 11340" 11347 11352 11356 11372 14247 14250 

WAITTM 041762 11225* 1124684 11249" 11296 11306 14250 

WAIT.P 041764 112494 

WAIT.T 042224 113344 12657 

WAT = 104413 2968 3075 3482 3640 3718 3833 3969 4274 4446 4653 4853 5014 5130 
5276 5413 5533 5661 5684 5823 5970 6132 6328 6491 6680 6832 7029 
7192 7406 7594 7839 8006 8253 8422 8565 8673 8833 8977 9124 9190 
sete 9382 9472 9624 9719 9840 9962 10087 10223 10352 10521 10638 10766 

we 002354 1993# 2990 3121 3378 3452 3731 3868 4082 4316 4488 4718 4913 5230 


5479 5601 5873 6020 6182 6378 6541 6730 6882 7079 7242 7479 7644 
7889 8056 8309 8470 8730 8883 9037 9289 9649 9746 9890 10137 10401 


wCE = 040000 17344 

wCF = 000040 17854 

wtu = 000001 18534 

WLE = 004000 17914 10671 

WRCHDT 002440 20284 9802 9830 9850 

WRCHEK 002436 2027# 10051 10077. =+10097~=—-: 10311 10342 #10362 

WRFROM 002470 20454 5734 5744 5777 5861 5893 6038 6075 6197 6249 6254 6282 
6396 6429 6434 6557 6611 6634 6718 6748 6775 6898 6950 6955 
7067 7097 7130 7135 7258 7326 7331 7359 7467 7498 7531 7536 
7722 7731 7739 7748 7794 7877 7909 7937 7946 8075 8135 8144 
8161 8207 8291 8329 8356 8365 8489 8582 8592 8601 8611 8625 
8761 8769 8774 8899 9066 9073 9078 9134 9324 9331 9336 9392 
9498 9503 9508 9513 9518 9528 954 9554 9561 9582 9637 9765 
9878 9978 9983 9988 9993 9998 10008 10027 10032 10044 19125 10239 
oes” 10254 10259 10269 10287 10292 10304 10390 10475 10487 #10591 10603 

WRIDAT 002442 20294 6289 6316 6338 6641 6668 6690 6990 7017 7039 7366 7394 
10494 10512 10610 10630 

WRIFOR 002444 sosee hrs 5811 5833 7801 7827 7849 8214 8241 8263 8632 8659 

WRL. = 004000 1773@ 10557 10824 

WRU = 000400 18614 

wSuU = = 000004 1855# 

XE2 007464 2407 24384 

$AUTOB 001134 879# 2229 12072 12201 


$BDADR 001122 B74" 2866" 2874 2904* 2914 11159* 11167" 14260 14273 14276 14278 
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$BDDAT 001126 8768 
5557* 
6705* 
8022" 
92548 
11476 
$BELL 001216 9084 
SCHARC 045710 11940* 
SCKSWR 046222 120584 
SCMTAG 001100 8624 
$CM1 = 000006 894" 
$CM2 = 000014 894" 
$cM3 = 000006 8924 
$cM4 = 000006 9004 
SCNTILC 046773 12013 
SCNTLG 047005 12079 
SCNTLU 047000 12104 
SCRLF 001223 9104 
12194 
SDBLK 045464 11861 
SDOAGN 041150 10925 
SDTBL 045454 11864 
SENDAD 041140 791 
SENDCT 041106 109274 
SENDMG 041157 10887 
SENULL 041154 10890 
SEOP 041052 1 
SEOPCT 041100 10924a 
SERFLG 001103 654 
SERMAX 001115 8714 
SERROR 047174 2145 
SERRPC 001116 8724 
14266 
SERRTB 001226 927" 
SERRTY 047344 12287 
SERTTL 001112 869" 
SESCAP 001214 9074 
S$FILLC 001156 8904 
$FILLS 001155 889" 
SGDADR 001120 8734 
$GDDAT 001124 8754 
5553* 
6701* 
8018* 
9250* 
14273 
$GET42 041130 109334 
$GTSWR 046312 120804 
$HD = 000000 619 
$HIOCT 047172 12243 
SICNT 001104 8664 
$itLtuP 051150 12663 
S$INTAG 001135 8804 
SITEMB 001114 8704 
$L 001224 9114 


F 
$LPADR 001106 8674 


n 8 
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23598 
5566 


29248 


902" 
121944 


109434 


12281* 
12297 


3087* 
5844* 
7041* 
8274+ 
10099* 


B434* 
10108* 


11836 
12201 


12255 
11549 


4677* 


10364* 


4686* 


12275* 


14247 
14282 


4682+ 
6144% 
72138 
8685* 
10373* 


11814* 


1 
14269 


7457 


12302 


14250 
14286 


4865* 
6153* 
7418* 
8694" 
10993* 


11829* 


8 
10991 
14273 


7458 


14253 


4874* 
6340* 
7427* 
8845* 
11475* 


11834 


11534 


14255 


5150* 
6349+ 
7606* 
8854* 
11656* 


11836 


5170* 


11939 


14257 


5166* 
6503* 
7615* 
3989* 
14253 


5437* 


11356* 


11974 


14260 


5433* 


8 
14266 


SEQ 0310 


5446 
6696¢ 
7864 
9245¢ 
11372¢ 


12115 


14263 


54428 
6692* 
7860* 
92418 
14269 


CZRJIDO, RPOG/5/6 FCTNL CILRI 


CZRJID.P11 


SLPERR 
SMAIL = 


$SETUP= 


$SS1 
$STUP 
$SVLAD 
$SVPC 
$SWR 


SSWRMK = 
STIMES 


001110 


= 000001 


050714 
050716 
045232 
001100 


051156 


eenrnee 
046654 
047034 
000011 
001160 
001162 
001164 
001166 
001170 
001172 
001174 
041152 
eeneee | 
eeeneer | 
051154 
044776 
000117 


63353; 


167770 


000000 
001212 


28-MAR-79 09:03 


MACY11 godt iy t 


127018 
126634 
126798 


25-MAY-79 


Nn 8 
10:30 PAGE 313 


CROSS REFERENCE TABLE -- USER SYMBOLS 


10583* 
11829 


12691 


12134 


12681* 


2143 
12053 


11532 
11927 


o-oo sf 
Srwowe 
=z =2= ® 


—_— — 
Ww) —(C OOUW Swit 


ee chee oon OWwW 


Nm 
oO 


12178 


12682* 


2145 
12201 


. 


11559* 
12290 


12587* 
118338 
4141 


12194 


127008 


2147 
12276 


11806 
2381+ 


11814 


101534 
126134 
4955 


12252 


25428 


11830* 


25288 
76808 
10155 


10457 


12255 


3209+ 


1 


1 


1 


1 


1836 


7 
0422m 


0886* 


2302 


2152 


3502s 


12296 


26898 
3 


2154 


7305* 


2691 
3492e 
4560 
6052a 
8091 
108534 


10921* 


2222 


27218 


10922* 


10919 








SEQ 0311 


27628 
3668 
47798 
6211 
91508 


10930 §=10943 


11789 


11817* 


BY 
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11827" 11836 

$TKB 001146 8854 11977 11998 12009 12034 12062 12089 

STKCNT 045714 11978@ 11993* 12023 12040" 12154 121568 

STKINT 045734 2182 2384 3029. 11690 119938 12014 12075 

STKQEN= 045733 11982@ 12068 12159 

STKQIN 045716 11979# 11994* 11995 12046" 12047* 12048 12050* 

$TKQ0U 045720 119804 11995* 12157 12158* 12159 12161* 

STKQSR 045722 119814 11994 12050 12161 

STKS 001144 8844 11977 11999* 12030" 12032 12038* 12060 12076* 12086 12098* 12118 

STKSRV 046004 11996 120094 

STMPO 001176 900 2448 24498 

STMP1 001200 9014 2307* 2746 2747 2785 2786* 8571 8930" 14257 

STMP2 001202 902" 

STMPS 001204 9034 

STMP4 001206 9044 

STMPS 001210 9054 

$™N = 000052 6094 619 2269 2281 2285 22928 2293 2344 23514 353 2358 2367 23818 
2382 2523 2528 25428 2544 2689 26984 2701 2721 27308 273) 2752 2756 
2762 2769" 2770 2791 2802 28308 2850 3015 30254 3032 3145 3147 3154 
3158# 3159 3169 3173 3177# = =3178 3190 32094 3218 3222 3245 3324 3492 
35024 3511 3519 3533 3536 3666 36758 3883 32918 4098 4127# 4145 4339 
43614 4520 45248 4525 4539 454384 4544 4558 45684 4742 47468 4747 4761 
47654 4766 4779 4789# 4925 4947# 4959 4962 5283 5303#@ 5304 5625 5628 
56354 5637 5691 5695 5722# 6052 60644 6209 62384 1 66004 6910 9398 
7273 73054 7306 7318 7680 7711# 8089 81244 8504 85234 9150 91634 9410 
94364 9906 9927" 10153 101764 10188 10422 104494 10461 10464 10853 108654 

$STPB 001152 8874 11963* 11974 

STPFLG 001157 8914 11921 11974 

STPS 001150 8864 11961 11974 

STRAP 050720 2147 + =126224 

STRAP2 050742 126334 12644 

STRP = 000014 4 th 126464 126474 126484 12649# 126504 12651 126524 12653 126544 126554 12656 126578 

658" 

STRPAD 050754 12627 126444 

STSTNM 001102 8644 10881* 10919* 11779 11806 11828 11833 11837 12277 12302 

STTYIN 046762 12171 12172 12189 121938 

STYPBN= seeeee | 12650 

STYPDS 045250 118494 12649 

STYPE 045474 119214 12637 12645 

STYPEC 045644 11942 11949 11956 11961# 11962 12120 

STYPEX 045712 11967 11969 11972# 

$TYPOC 050516 12567# 12646 

$TYPON 050532 12566 125694 12648 

$TYPOS 050472 125624 12647 

SXTSTR 045010 117934 

$$GET4= 000000 109354 

$OFILL 050715 12563* 12567* 12577 12612# 

S4OCAT= eeeeee 11790 §=12287 

: = 072254 7778 7818 789 790# 7920 7948 7984 8024 54a 8614 912 20448 20458 
20464 20634 20824 2140 2154 2155 2196# 22018 22054 2209 2218 23158 23308 
23378 8626184 24228 246878 246938 24998 25808 26184 26634 26694 26758 27098 27138 
27194 28624 35538 35718 35818 36508 36548 4985# 52528 7456# 105414 10547# 108088 
10877# 10943 10947 11538# 115534 11706# 11730# 11742 11754 11836 11837 11903# 11974 
11977, 119814 11982 11983# 12193# 12194 12201 12255 12302 12333@ 12341# 12405@ 124138 
124214 124298 124637# 124645# 124698 12477# 12534# 12675 12699 143318 





¢ 9 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 316 
CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0313 


12345 12353) 12361) 0S 12369) 12377) 12385) =: 12393) 12401) = 12409) 12417) 12425 «12433 
12465 12473 


CZRJ1D0, RPO4/5/6 FCIN | 
37 
03 3329 3342 3353 3360 3400 3411 3420 3427 3434 3848 3852 3990 
74 
43 
03 


Lc 

CZRJID.P11 28-MAR-79 0 
1 

1 


1 

9 
ALLREG 6478 12328 2 
12441 = 12449 2 

CHANGR 6478 2975 3 
4 4289 4300 4461 4472 4700 4888 4892 4899 5201 5211 5218 5454 
5 5581 5588 9013 9017 9024 9265 9269 9276 10551 10653 10665 10672 
3 
7 


CHECKD 
CHECKV 6478 2934 3039 4175 4368 4997 
CHKCNT 647# 5021 5325 5497 


CKCNTV 6474 5256 
CLEARA 6478 5743 5762 5911 6074 6248 6253 $e 


3 
8590 8609 8750 8767 8773 9056 9072 9077 9314 9330 9335 9497 9502 9507 9512 
9517 9547 9560 9568 9977 9982 9987 9992 9997 10026 10031 10238 10243 10248 10253 
CMPBLK 6478 5889 6035 6194 6392 6554 6744 6895 7093 7255 7494 7658 7905 8072 8325 


CMREGI 6478 2986 3117 3374 3448 3727 3864 4078 4312 4484 4714 4909 5226 5475 5597 
5869 6016 6178 6374 6537 6726 6878 7075 7238 7475 7640 7885 8052 8305 8466 


COMMEN lf 620 7748 
DATACO 647# 5770 5919 6082 6276 6441 6628 6782 6977 7142 7353 7543 7787 7953 8200 


DISREG 6478 
DUM 


8 8906 2 2 3 9858 
9867 9895 10105 10114 10141 10370 10379 10406 10570 10698 10783 10838 10974 10986 10995 


ESCAPE la 7748 
F IHEAD 6474 5732 5754 7720 7737 7758 7771 7935 8133 8150 8171 8184 8354 8579 8598 


FILLBL 6474 
FLSVRE 6474 3978 3981 4024 4027 4030 4033 4036 4039 4046 4050 4060 4063 4283 4286 


886 88 88 901 9632 9635 9638 9728 9731 9734 9873 9876 9879 10120 
10123. 10126 §=©10385 10388 10391 10662 
GETPRI 774e 
GE TSWR lf 6094 774# = =2222 
GOO 6478 958 3063 3471 3629 708 3825 3959 4251 4263 4423 4435 4643 4843 5004 
119 5265 5402 5522 5653 5676 5810 5959 6121 6315 6480 6667 6821 7016 7181 
7393 7583 7826 7993 8411 8555 8658 8822 8965 9115 9179 921? 9373 9461 
9615 9710 9829 9953 10076 10214 10341 10511 10629 10757 





D9 
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CZRJID.P11 28-MAR-79 09:03 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0314 


LOAD 6478 3754 3756 
3911 


MAKECL 6474 3153 3172 

MANUAL 6474 2839 3234 49 

MSG 22848 2287 23438 23664 2369 25278 2530 2688" 2691 27208 2723 27618 2764 28028 
2804 30144 3017 31898 3192 34918 3494 3665# 3668 3883" 885 4341 
45564 4560 tA hg 4781 49254 ra a 52838 5285 56284 5630 5695# 5697 60514 6054 62084 


w 
= 
Oo 
o 
~N 
a 
> 
— 
So 
Oo 
= 
w 
w 
™~ 
ba] 


6211 65718 6 69108 6912 2738 = =§=7275 7679# 7682 80884 8091 85034 8506 91498 9152 
ant ita = "i. 99054 9908 101524 10155 104214 10424 10853 10855 
i 
NEWTST la 774# = §=2285 2344 2367 2528 2689 2721 2762 2802 3015 3154 3173 3190 3492 


3666 3883 4098 4339 4520 4539 4557 4742 4761 4778 4925 5283 5628 5695 6052 


OF FST 6478 5649 
POP la 7748 = =—53791 3944 4221 4618 5090 5377 9542 10022 10283 10997 11024 11052 11077 


PUSH le 774" = 3775-3928 «= 4205 = 4602S 5074 «= «5361 «9525 10005 10266 »=— 1096111013 11042-—S«11070 
wepont vey 11852, 11554 1158911419 1145611576 1165911849 1221812665 12671 


RFORGC 6478 
RHCLEA 647# 2546 2733 2772 2832 2879 2928 3034 3224 3391 3538 3589 3677 3747 3893 
4129 4170 4363 4570 4791 4964 4992 5306 5319 5612 5639 5671 5724 5905 6066 


8940 9165 9308 9438 9478 9664 9782 9929 9969 10178 10230 10466 10585 10711 
RH70CK 6478 7313 10183 
SAVE 647# 12271 
SAVTST 647# 2293 2353 2382 2698 2731 2770 3159 3178 4525 4544 4747 4766 


8123 
SEEKCO 647# 8946 9198 9450 9942 10202 


SETPRI la 774# 12150 

SETTRA 12637# 12646 12647 12648 12649 12651 12653 12654 12655 12656 #12657 

SETUP ia 774@ = =2135 

SKIP la 6474 774# 2269 2281 2358 2523 2701 2752 2756 2791 5625 5691 

SLASH la 7748 

SPACE 7748 

SREGIS 6474 2944 3049 3250 3694 3809 4235 440 4631 4831 5105 5388 5508 5790 5939 
6101 6295 6460 6647 6801 6996 7161 7374 7564 7806 7973 8220 8391 8638 8802 
8951 9203 9595 9690 9808 10056 10320 10531 10615 10796 

STARS lf 639 645 7748 787 857 912 1699 1701 1741 1743 1984 1989 2236 
2258 2285 2290 2344 2349 2367 2379 2458 2478 2528 2540 2591 2610 2637 2676 
2689 2696 2721 2728 2762 2767 2802 2828 015 3023 3140 3150 3154 3156 3173 
3175 3190 3207 3211 3220 3492 3500 3504 3513 3666 3673 3883 3889 4098 4125 
4339 4359 4509 4515 4520 4522 4539 4541 4558 4566 4732 4738 4742 4744 4761 
4763 4779 4787 4925 4945 5283 5301 5495 5628 5633 5695 5720 6052 6062 6209 
6236 6571 6598 6910 6937 7273 7303 7680 7709 8089 8122 8504 852 9150 161 
9410 943 99 9925 10153 10174 10422 10447 #10851 10852 10853 10863 #10911 11759 =—s-:111769 
11776 §=©.11839 §=6©11906 11976 12053 12068 12139 12163 12204 12257 12539 12616 12661 12677 

STARTT 647# 2544 2830 3032 3222 3536 3675 3891 4127 4361 4568 4789 4962 5304 5636 





a. ¥ 
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CZRJID.P11 28-MAR-79 09:03 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0315 


5722 6064 6238 6600 6939 7306 7711 8124 8523 9163 9436 9927 10176 10464 

SWRSU ls 7748 = 21568 

TJUMP ai 2850 3145 3147 3169 3218 3245 3324 3511 3519 3533 4145 4959 7318 10188 

TRATRP 126378 

TSCLR2 6478 

TSCLRS 6478 

TTSTNO 6478 2545 2831 3033 3223 3 
5723 6065 6239 6601 6940 7 


537 3676 3892 4128 4362 4569 4790 4963 5305 5638 
307 7712 8125 8524 9164 9437 9928 10177 10465 


TYPBIN la 7748 

TYPDEC la 774# 10930 

TYPNAM la 7748 

TYPNUM la 7748 

TYPOCS la 7748 

TYPOCT ‘¢ 774# = §=©2625 2631 12081 

TYPTXT a 774@ = =2188 2193 2198 2202 2206 2211 2215 2270 2312 2327 2334 2388 2414 
2419 2423 2427 2484 2490 496 572 2577 2615 2621 2627 2659 2665 2671 2702 
2 2710 2716 2853 2859 2885 2891 3274 3280 3300 3306 3550 3554 3567 3574 
3578 3605 1 3647 3651 4148 4159 4982 4986 5177 5242 5249 7445 745 10538 
10544 10804 10811 10868 10874 11522 11528 11535 11539 11543 11550 11554 11679 11686 11702 
11709-11715) 19727) 19727) -:19737) 11735) 11739) 1174511750) 11761) 12330) 12338 = 12346 )3=— 12354 =: 112362 
12370 §=12378 §=612386 )=— 12394 )=— 12402) 12410) = 12418 = 12426) 12434 12442 = 12450 )=— 12458 = 12466) 12474 


VECSET 6478 = 2951 3056 3701 3816 3952 4242 4414 4637 4837 5112 5395 5515 5803 5952 


Ret 10738 9108 9172 9210 9366 9454 9608 9703 9822 9946 10069 10207 10333 10504 

6 

wT 6478 2967 3074 3481 3639 3717 3832 3968 4272 4444 4652 4852 5013 5275 5412 
5532 5660 5683 5822 5969 6131 6327 6490 6679 6831 7028 7191 7405 7593 7838 
8005 8421 8564 7 8832 8976 9123 9189 9228 9381 9471 9623 9718 9839 
9961 10086 10222 10351 10520 10637 10765 

WIT 6478 2973 3080 3487 3645 3723 3838 3974 4279 4451 4658 4858 5019 5281 5418 


SSCMRE 855a 894 895 896 897 898 899 
SSCMIM 8554 900 901 902 903 904 905 


SSESCA lf 7748 

SSNEWT la 7748 = =—2285 2344 2367 2528 2689 2721 2762 2802 3015 3154 3173 3190 3492 
3666 3883 4098 4339 4520 4539 4558 4742 4761 4779 4925 5283 5628 5695 6052 
6209 6571 6910 7273 7680 8089 8504 9150 9410 9906 10153 10422 10853 

SSSET 12637# 12646 12647 12648 12649 12651 12653 12654 12655 12656 12657 

$SSKIP la 7748 

-EQUAT la 6094 664 

» HEADE lé 6094 

oKT11 la 6094 818 

. SETUP la 6094 2133 

- oWRHI lf 609" 647 

- SWRLO 6094 6598 660 

-$ACT1 la 6094 785 

. SAPTB lf 

. SAPTH la 

- SAPTY la 

- SASTA la 

- SCATC la 609# 775 

-SCMTA la 609# 855 

. $0B2D la 


Fe en 


CZRJ1D0, RPO4/5/6 FCTNL CT 
28-MAR-79 09: 


CZRJID.P11 


- ABS. 072254 


ERRORS DETECTED: 
DSKZ:CZRJID.BIN,DSKZ:CZRJID.LST/CRF/SOL/NL:TOC:MD:MC:CND/LI:ME=CZRJID.SML,CZRJID.P11 


RUN-TIME: 
CORE USED: 


609" 10909 
609" 12255 
6094 

609" 12659 


609" 1 
609" 1 


6094 11774 
6094 12614 
6094 11 
6094 11904 
6094 12 
000 


0 


110 161 8 SECONDS 
RUN-TIME RATIO: 569/281=2.0 


38k 


(75 PAGES) 


i. 
MACY11 30A(1052) 25-MAY-79 10:30 PAGE 319 
CROSS REFERENCE TABLE -= MACRO NAMES 


SEQ 0316 


